Vb6 et vba

Option Explicit
Dim Mabase As New ADODB.Connection     'Déclaration d'une connexion à la base de données
Dim TImprim_RST As New ADODB.Recordset 'Déclaration des jeux d'enregistrements
Dim TBon_RST As New ADODB.Recordset    'Déclaration des jeux d'enregistrements

Private Sub Cmd_Connect_2007_Bis_Click()
  Set Mabase = New ADODB.Connection
  'Définition du provider
  'access 97 a 2003 "Microsoft.jet.OLEDB.4.0"
  'access 2007 "Microsoft.ACE.OLEDB.12.0"
  'access 2010 "Microsoft.ACE.OLEDB.14.0"
  Mabase.Provider = "Microsoft.ACE.OLEDB.12.0"
  'Ouverture de la base de données
  Mabase.Open "data source =D:\Test_Open_Base\Test_VB6_2007\Datas_Base\Equipement_Bons_Travaux.accdb"
  'Ouverture des jeux d'enregistrements BdD_Bon: table tous BONS
  TBon_RST.Open "BdD_Bon", Mabase, adOpenStatic       'Ouverture en statique
  'Ouverture en dynamique avec verouillage optimiste
  'TBon_RST.Open "BdD_Bon", Mabase, adOpenStatic, adLockOptimistic


  'Fermeture des jeux d'enregistrements
  TBon_RST.Close
  
End Sub

Private Sub Cmd_Quitter_Click()
  'Fermeture de la base de données
  Mabase.Close
End Sub