I made a couple of changes and used the code tags, the # tool.
Code:
Private Sub cmdRequery_Click()
Dim rs As DAO.Recordset
Dim strBookmark As String
On Error GoTo Err_cmdRequery_Click
'set a variable to the current record
strBookmark = Me.EmpFName
'requery the form
Me.Requery
'bring us back to the original record
Set rs = Me.RecordsetClone
rs.FindFirst "EmpFname = '" & strBookmark & "'"
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Could not locate [" & strBookmark & "]", vbOKOnly + vbCritical
End If
Exit_cmdRequery_Click:
Set rs = Nothing
Exit Sub
Err_cmdRequery_Click:
MsgBox Err.Description
Resume Exit_cmdRequery_Click
End Sub