Erreur findFirst

Bonjour

j'ai une erreur sur le findFirst le debugger s'arrete sur la lig,e rest.FindFirst sytCritere (j ai argument invalide) je ne comprends pas ...aidez moi svp

Function ChercherEnregistrement(frm As Access.Form, strCritere As String) As Boolean

'--------------------------------------------------------
' Variables
Dim rst As dao.Recordset
Dim blnResultat As Boolean

'Le Recordset
Set rst = frm.Recordset

'Chercher l 'enregistrement
blnResultat = False
MsgBox strCritere
rst.FindFirst strCritere
'Si recherche réussie la valeur de NoMatch est à False
If Not rst.NoMatch Then
frm.Bookmark = rst.Bookmark
blnResultat = True
End If

'Libérer les objets
Set rst = Nothing
ChercherEnregistrement = blnResultat
End Function

Private Sub recherche_affaire_Click()
Dim param As String

' Vérifier si la valeur est numérique
If Not IsNumeric(Me.rechercher_affaire) Then
MsgBox "La valeur cherchée doit être numérique !", vbExclamation
Exit Sub
End If

param = Form![rechercher_affaire]

If Not ChercherEnregistrement(Me, param) Then
MsgBox "Numéro d'affaire introuvable !", vbExclamation
End If

End Sub