Problème d'accès avec la BDD VBA

Bonjour à tous.

Je viens vers vous aujourd'hui pour un problème de base de données.

Voici mon code :

       
Public oConnect As ADODB.Connection

Sub test()
'''''''''''''''''''''''''''''''Creation Dossier'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim dossierEnregistrement As String
dossierEnregistrement = "" & Feuil10.[F6]
If Dir("C:\Users\a.olaizola\Documents\SauvegardeDevis\" & dossierEnregistrement, vbDirectory) = "" Then _
    MkDir "C:\Users\a.olaizola\Documents\SauvegardeDevis\" & dossierEnregistrement

''''''''''''''''''''''''''''''Enregistrement Fichier''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Plage As Object, oL As Object, oC As Object, Tmp$, Sep$
Sep = ";"
Set Plage = ActiveSheet.Range("A4:G" & ActiveSheet.Range("A2").End(xlUp).Row)
Open "C:\Users\a.olaizola\Documents\SauvegardeDevis\" & dossierEnregistrement & "\Infos.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close

'Call InsertData

End Sub

''''''''''''''''''''''''''''Enregistrement BDD''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'1) Connexion BDD
Private Sub ConnectionDB()
Dim S As String
    Set oConnect = New ADODB.Connection
    S = "DRIVER={MySQL ODBC 5.1 Driver};" & _
        "SERVER=" & Sheets("BasedeDonnees").Range("B30").Text & ";" & _
        "DATABASE=" & Sheets("BasedeDonnees").Range("B31").Text & ";" & _
        "USER=" & Sheets("BasedeDonnees").Range("B32").Text & ";" & _
        "PASSWORD=" & Sheets("BasedeDonnees").Range("B33").Text & ";" & _
        "Option=3"
      MsgBox (S)
    oConnect.Open S

End Sub

'2) Ajout à la BDD
Sub InsertData()
Dim Rs As ADODB.Recordset
Dim Requete As String

    Set Rs = New ADODB.Recordset
    Call ConnectionDB
    With Sheets(1)
            Requete = "INSERT INTO client(idClient, nomClient, adresseClient, villeClient, telContact, mailContact, siret) VALUES(" & _
                .Cells(2, 1) & ", '" & _
                .Cells(2, 2) & "', '" & _
                .Cells(2, 3) & "', '" & _
                .Cells(2, 4) & "', '" & _
                .Cells(2, 5) & "', '" & _
                .Cells(2, 6) & "', " & _
                .Cells(2, 7) & ")"
            Rs.Open Requete, oConnect, adOpenDynamic, adLockOptimistic
    End With
    oConnect.Close
    Set Rs = Nothing
End Sub

Mon problème ici est la partie "connexion à la BDD" (toute la partie création de dossier/fichier fonctionne).

Je récupère les valeurs suivantes dans ma variable S et lorsque je tente d'ouvrir ma BDD (ligne oConnect.Open S), j'ai une erreur.

Je n'arrive pas a définir le problème et le corriger, quelqu'un pourrait-il m'aider svp? Merci