[V B] problème recordSet

Bonjour,

J'ai un petit soucis avec mon code VB, quand j'excute ceci j'ai l'erreur suivante qui apparait :

"Varialbe objet ou variable de bloc With non définie"

voici le code :

Private Sub Retirer_Click()

On Error GoTo Err_Retirer_Click
Dim nomL As String
Dim nomL2 As String
Dim nomC As String
Dim nomC2 As String
Dim res As String

nomC = Nom_Centre.Value
nomC2 = Replace(nomC, "'", "''")

Dim BD As DAO.Database
Dim qteFinal As Integer
Dim qteSelec As Integer
Dim qte As Integer
Dim recor As DAO.recordset

nomL = Me.Form![Sous_Formulaire_Liste_Lot]![Nom_Lot].Value
nomL2 = Replace(nomL, "'", "''")

box = InputBox("Combien de lots voulez vous supprimer ?", "retirer " & name, "0")
qteSelec = Val(box)

Set recor = BD.OpenRecordset("Select Nom_Lot, Quantite from PossedeLot where Nom_Lot = '" & nomL2 & "' and Nom_Centre = '" & nomC2 & "';", dbOpenDynaset, dbFailOnError)

With recor
    res = ![Nom_Lot]
    qte = ![Quantite]
   
    If qteSelec <= qte Then
    
             If qte = qteSelec Then
                 req2 = "Delete Nom_Lot from PossedeLot where Nom_Lot = '" & nomL2 & "' and Nom_Centre = '" & nomC2 & "';"
             Else
                 qteFinal = qte - qteSelec
                  req2 = "Update PossedeLot set Quantite = " & qteFinal & " where Nom_Lot = '" & nomL2e & " and Nom_Centre = '" & nomC2 & "';"
             End If
             
        If MsgBox("Voulez-vous confirmer le retrait ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
          Me.Undo
          Cancel = True

        Else
          BD.Execute req2
          DoCmd.Close
        
        End If
    
    Else
    MsgBox "Quantité supérieure au nombre de lots existant"
   
    End If
 End With
    recordset.Close


 Exit Sub

End Sub

j'ai mis des MsgBox un peu partout pour verifier et j'ai vu que ca bug lors du set record = DAO.BaseOpenRecord("nom requete")

pourtant j'ai bien verifier les variables sont bonnes et tout ce qui est au dessus marche ...

si quelqu'un a une idée, j'ecoute !!!

merciiiii !!