Interaction Excel / Access avec VBA

Option Explicit
'******************************************************
'/!\ Référence Microsoft ActiveX Data Object x.xx Library nécessaire *
'******************************************************

'Objet connexion ADO
Private AdoConn As ADODB.Connection
Private Const user = ""
Private Const pw = ""

'Procédure de connexion
Public Sub OpenCnxBD()
Dim CnxString As String
Dim chemin As String

chemin = "C:\data\maBdd.mdb"      'chemin d'accès à la Bdd

Set AdoConn = New ADODB.Connection   'création de l'objet connexion

If AdoConn.State = adStateOpen Then  'si la base est déjà ouverte alors on sort de la procédure
    MsgBox "La connection est déjà ouverte"
    Exit Sub
End If

        '======== Ouverture Access ============'
        '    A modifier pour autres bases      '
        '======================================'
'Adapter la chaine de connexion en foction de la version Access        
CnxString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & chemin & ";" & _
                   "user ID=" & user & ";" & _
                   "password=" & pw & ";" & _
                  "Persist Security Info=False"

AdoConn.Open CnxString  'passage de la chaine de connexion
AdoConn.CursorLocation = adUseClient

On Error Resume Next

    If Err <> 0 Or AdoConn.State = adStateClosed Then    'si un erreur de connexion se produit
        MsgBox "Connection impossible avec la base"
        Exit Sub
    End If

End Sub