recordset.seek problem

[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...