Error handling 如何获取一个值，该值指示Recordset.Find是否找到了任何内容？

我编写了一个程序，可以在数据库（记录集）中添加、删除、保存和搜索记录。但是我是在一个团队里做的。我的任务是将搜索功能添加到程序中，我已经完成了；但是，当有人键入数据库/记录集中没有的单词/任何内容时，我在添加错误消息时遇到问题

例如，在文本框（txtFindBox.Text）中，如果他们键入“ashbndash”，就会出现一条错误消息。我已经注释掉了我自己的错误消息框，但请告诉我哪里出了问题：(

这是“查找”按钮的代码

Private Sub cmdFindDB_Click()
adoCustomer.Recordset.MoveFirst
If optLastName.Value = True Then
adoCustomer.Recordset.Find "LastName='" & txtFindBox.Text & "'"
'Else
'MsgBox ("NO RECORD FOUND")
End If
If OptFirstName.Value = True Then
adoCustomer.Recordset.Find "FirstName='" & txtFindBox.Text & "'"
'Else
'MsgBox ("NO RECORD FOUND")
End If
End Sub

编辑：就像说问题是，每次我点击“查找”按钮，它都会在msgbox中显示消息“未找到记录”，即使它找到了答案，如果你也输入胡言乱语，它也会显示msgbox

谢谢你的时间

---

关于Haroon，这里有一个示例，说明如何执行您正在尝试执行的操作：

代码示例：

adoCustomer.Recordset.MoveFirst
adoCustomer.Recordset.Find "LastName='" & txtFindBox.Text & "'"
If (adoCustomer.Recordset.BOF = True) OR (adoCustomer.Recordset.EOF = True) Then
   MsgBox "Record not found"
End If

您需要检查EOF和BOF，而不是检查Value属性是否为true。它们代表文件的结尾和文件的开头。因此，如果其中任何一个为true，则您不在记录集中，这意味着您没有找到任何内容