Private Sub Command1_Click()
Dim Searchvar As String
Searchvar = InputBox("Enter the Name to find")
Searchvar = Trim$(Searchvar) 'remove surplus spaces
If Searchvar <> " " Then 'cancel if nothing entered
.Find "[Title of Books] = '" & Text1.Text & "'", , adSearchForward
If (.EOF) Then 'record not found
MsgBox "No file found"
guys this is the code I used, yes it works but then it just display "FILE NOT FOUNG" all over again. I dont know where the problem is.
Help me guys, you are more trained and experienced in this forte..thank you