Instead of FindRecord, do a FindFirst on the RecordsetClone of the form.
Example:
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[Surname] = ""Smith"""
If rs.NoMatch Then
MsgBox "Not found"
Else
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing