Connexion entre BDD Access et Excel(VBA)

Imports.System.Data.OleDb

Dim cnn as new OledbConnection 'Connexion a une bdd
Dim cmd as new oledbCommand 'Faire des requêtes sur une bdd
Dim drr as oledbdatareader 'Récupéré le jeu d'enregistrement de la requête
Dim existeenreg as boolean 'Pour tester si il y a un enregistrement

cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="MA_BDD"
cnn.open()

cmd.commandText="Ma requete SQL"
cmd.Connection.cnn 'Pour situer ma Bdd

drr = cmd.ExecuteReader() 'Executer la requête et récupéré en mémoire
existeenreg = drr.read

while existeenreg = TRUE
blablabla..
End While

drr.close()
cnn.close()

' Initialisation du Formulaire
Private Sub UserForm_Initialize()
    RdoNon = True
    RdoRT = True

    Set Mabase = CreateObject("ADODB.Connection")
    Set TBon_RST = CreateObject("ADODB.Recordset")
    'Définition du Provider (outils de développement de bdd)
    Mabase.Provider = "Microsoft.ACE.OLEDB.14.0"
    Mabase.Open "data source =C:\TEST\AccidentsAT.accdb"

    Me.BtnValider.Enabled = True
    Me.BtnQuitt.Enabled = True
    Me.BtnValidAjoutActions.Enabled = True
    Me.BtnValidAjoutAnalyses.Enabled = True

TBon_RST.Open "Select nom_centre from Centre", Mabase
    existeenreg = TBon_RST.EOF
    
    While existeenreg = False
    x = TBon_RST.Fields("nom_centre")
    CboCentre.AddItem "x"
    TBon_RST.movement
    Wend