Method or data Member not found

When I run the following I receive a Compile Error: Method or  data Member not found

Can any help point out my mistake?

Public Function ap_StandardSearchChoice()
      Dim frmCalling As Form
      Dim frmSearchSub As Form
      Dim dynCalling As Recordset
     
      On Error GoTo Error_ap_StandardSearchChoice
     
      Set frmSearchSub = Forms!Contacts!subSearch.Form
      Set frmCalling = Forms(frmSearchSub.Parent.OpenArgs)
      Set dynCalling = frmCalling.Recordset.Clone
     
      If VarType(dynCalling(frmCalling.Tag)) <> vbString Then
        dynCalling.FindFirst frmCalling.Tag & " = " & frmSearchSub(frmCalling.Tag)
      Else
        dynCalling.FindFirst frmCalling.Tag & " = '" & frmSearchSub(frmCalling.Tag) & "'"
      End If
   
      If dynCalling.NoMatch Then
        MsgBox "An Error has occurred, No match record found!", 32, "Search Error!"
      Else
        frmCalling.Bookmark = dynCalling.Bookmark
      End If
   
      dynCalling.Close
   
      DoCmd.Close acForm, "Contacts"

Exit_ap_StandardSearchChoice:
    Exit Function

Error_ap_StandardSearchChoice:

    MsgBox Err.Description, vbCritical, "Search Error"
    Resume Exit_ap_StandardSearchChoice

End Function