Private Sub cmdSearch_Click()
   If IsNull(txtLastName.value) = False Then
   Me.Recordset.FindFirst "[Last Name]=" & txtLastName.value
   
   If Me.Recordset.NoMatch Then
   MsgBox "No record found", vbOKOnly + vbInformation, "Sorry"
    Else
    What ever you need to do with the recordset
    End If
End Sub