1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Dim strCriteria As String Dim rst As DAO.Recordset Dim strSearch As String strSearch = InputBox("Search") Set rst = Me.RecordsetClone strCriteria = "[Word] Like '%" & strSearch & "%'" rst.FindFirst strCriteria Me.Bookmark = rst.Bookmark