Erreur 3709 lors d'une màj d'un enregistrement

Bonjour,

Lorsque j’exécute le code suivant je rencontre l’erreur suivante :

Erreur 3709 La clé de recherche n’a été trouvée dans aucun enregistrement

Sub ModifierBenevole()   

On Error GoTo GestionErreur

'--- Ouverture de la base
     Set db = CurrentDb

'--- Initialise les champs
     lstr_réfAdhérent = Me.txtRéfAdhérent
     lstr_RéfBénévoleA = Nz(Me.txtréfBénévoleA, 0)
  
'--- Intérogation de la tbl chèques
     rq = "SELECT [tbl Bénévoles].* " & _
         " FROM [tbl Bénévoles]" & _
          " WHERE ((([tbl Bénévoles].RéfAdhérent)=" & lstr_réfAdhérent & ") " & _
            " And (([tbl Bénévoles].RéfBénévole)=" & Nz(lstr_RéfBénévoleA, 0) & "));"
              'Debug.Print rq
        
     Set rsBénévoles = db.OpenRecordset(rq, dbOpenDynaset)
     
'--- 1 Vérifie si le recordset et vide
     If rsBénévoles.RecordCount = 0 Then 
        strMessage = "Aucun enregistrement à modifier"
        strTitre = "MODIFICATION D'ENREGISTREMENT"
        MsgBox strMessage, vbInformation, strTitre
     Else 
     
'--- Initialise les messages
     strMessage = "Etes-vous sûr de vouloir modifier" & vbCr & "cet enregistrement ?"
     strTitre = "MODIFICATION D'UN ENREGISTREMENT"
     StrReponse = MsgBox(strMessage, vbInformation + vbYesNo + vbDefaultButton2, strTitre)
     'MODIFICATIONsuppréssion
     If StrReponse = vbYes Then 
      
     '--- Mofifications des Enrg dans tbl Bénévoles
          rsBénévoles.Edit
              rsBénévoles("RéfBénévoleType") = Nz(cmbBénévoleTypeMS)
              rsBénévoles("RéfActivitéListe") = Nz(CmbActivitéListeMS)
              rsBénévoles("DateEntrée") = CDate(Nz(txtDateEntréeMS))
              rsBénévoles("DateSortie") = CDate(Nz(txtDateSortieMS))
              rsBénévoles("Départ") = Me.OptSortieMS
          rsBénévoles.Update
    Else 
      Me.Undo
    End If 
End If 

'--- Màj du sous formulaire
     Forms![frm bénévoles]![frm bénévoles-sfm].Requery
     Forms![frm bénévoles]![frm bénévoles-sfma].Requery
     
'--- Ferme les objet
     rsBénévoles.Close: Set rsBénévoles = Nothing
     db.Close: Set db = Nothing
     
GestionErreur:
End Sub

L’image jointe montre les champs du formulaire principal que je modifie, et
le sous formulaire qui doit être modifié.

Merci pour votre aide.

Salutations