Your code would do the job but so does my new code it is slower but i thought it up and it works and it is stayin. I decided to use the following code (I know the spelling is bad):

Private Sub cmdSearchBook_Click()
Dim SearchString As String
Dim result As String
Dim book As String
SearchString = txtSearchBook.Text
Data1.Recordset.movefirst
Do
book = Data1.Recordset.Fields(2)
result = InStr(1, book, SearchString)
If result <> 0 Then Exit Do
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Exit Do
Loop
MsgBox "Found result to " & txtSearchBook.Text
End Sub

<<<<<<<--Thanks-->>>>>>>