Problem visual basic Erreur 3061 trop peu de paramètre 1 attendu

Bonjour, je rencontre se probléme sur un base de donnée Access.

Je précise que j'y connais rien du tout, mon collègue à construit cette base, depuis il à quitté la société.

Nous avons juste changer de version d'excel entre temps de serveur la base de donnée excel.

Voici le message que j'ai en surligné jaune j'imagine que cela correspond à l'erreur.
Set ResSQL = Db.OpenRecordset(ReqSQL, dbOpenSnapshot)

et voici le programme en entier

Private Sub Rechercher()

FermeEtat

If (IsNull(Form_Formulaire_Recherche.ValRecherche.Value)) Then
MsgRetour = MsgBox("Veuillez saisir un code d'article !!!", vbOKOnly + vbExclamation, "Erreur de saisie")
Else
ValRech = Form_Formulaire_Recherche.ValRecherche.Value
' Requête de recherche de l'article
Set Db = CurrentDb
' Détermine le code SQL en fonction de la méthode de recherche
ReqSQL = "SELECT COUNT(*) AS nbRes FROM EPDM_DATABASE WHERE EPDM_DATABASE.lbcodart='" & ValRech & "'"

' Exécute la requête
Set ResSQL = Db.OpenRecordset(ReqSQL, dbOpenSnapshot)
If Not ResSQL.EOF Then
If ResSQL.Fields("NbRes") > 0 Then
If ResSQL.Fields("NbRes") > 1 Then
MsgRetour = MsgBox(ResSQL.Fields(0) & " articles trouvés." & Chr(13) & Chr(13) & "Modifiez vos critères de sélection !!!", vbOKOnly + vbExclamation)
Else
AfficheEtat
ValRech = 0
End If
Else
MsgRetour = MsgBox("Ce code article n'existe pas dans EPDM !!!", vbOKOnly + vbExclamation, "Pas de résultat")
End If
Else
MsgRetour = MsgBox("Ce code article n'existe pas dans EPDM !!!", vbOKOnly + vbExclamation, "Pas de résultat")
End If
ResSQL.Close
Db.Close
End If

End Sub


merci pour votre aide