recordset.seek problem

Private Sub Command2_Click()
prompt$ = "enter name"
searchstr$ = InputBox(prompt$, "seraching")
datcontainer.Recordset.Index = "Konteyner"
datcontainer.Recordset.Seek "=", searchstr$
If datcontainer.Recordset.NoMatch Then
MsgBox "Couldn't find", vbExclamation, "Result"
datcontainer.Recordset.MoveFirst
End If
End Sub

when i debug this code it shows (visual basic warning) No current records. I just want to use my own message. How can i disable visual basic warnnigs as i mentioned?
i am getting crazy. i want to disable them. can anyone help me please???
thanks...

Quote:

---

Originally Posted by odysseus

Private Sub Command2_Click()
prompt$ = "enter name"
searchstr$ = InputBox(prompt$, "seraching")
datcontainer.Recordset.Index = "Konteyner"
datcontainer.Recordset.Seek "=", searchstr$
If datcontainer.Recordset.NoMatch Then
MsgBox "Couldn't find", vbExclamation, "Result"
datcontainer.Recordset.MoveFirst
End If
End Sub

when i debug this code it shows (visual basic warning) No current records. I just want to use my own message. How can i disable visual basic warnnigs as i mentioned?
i am getting crazy. i want to disable them. can anyone help me please???
thanks...

---

Take a look at my response to your same question in the Classic VB Forum here.

Please don't double post because it makes people less likely to want to help you.