"Error 3021 - No Current Record" Even though the form has records

I have created a search form by which users can enter either an OfficeCode or employeeID number to open the frmOfficeMain to the appropriate office.  When I search by OfficeCode the after update event of that field opens the frmOfficeMain, no problem.  If I search by the employeeID number the after update event of that field opens the main form also with no problem.  If I use another field that uniquely identifies the employee such as SSN the after update event opens the frmOfficeMain but I get an error message right before saying "No Current Record".  After I click ok the main form opens to the appropriate record.  Ive used the same code in the after update event for each field so I dont understand why it isnt working.  Here is my code:

Private Sub txtSSN_AfterUpdate()
Dim rst As Dao.recordset
Dim stDocName As String
Dim stLinkCriteria As String

Me.OfficeResultSSN = DLookup ("[Office Code]","qryOfficeSearch", "[SSN]=" & Me.txtSSN & "")

Set rst = me.recordsetClone
rst.FindFirst "[Office Number]='" & Me.OfficeResultSSN & "'"

If Not rst.NoMatch then
stDocName = frmOfficeMain"
stLinkCriteria = "[Office Code]='" & Me.OfficeResultSSN & "'"

Docmd.openform stDOcName,,,stLinkCriteria
Me.txtSSN = ""
Me.OfficeResultSSN = ""

Else

msgbox "Social Security Number " & me.txtSSN & " not found.", vbOkOnly, "Notice!"
me.txtSSN = ""
me.txtSSN.setfocus
end if
end sub  Start Free Trial