If (txtSearch & vbNullString) = vbNullString Then Exit Sub
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[JobID]=" & txtSearch 'JobID would be the field you are searching against i.e. employeeID etc..
If rs.NoMatch Then
MsgBox "Sorry, no such record '" & txtSearch & "' was found.", vbOKOnly, "No Record Found"
Else
Me.Recordset.Bookmark = rs.Bookmark
End If
rs.Close
txtSearch = Null