Codage vb6.0

Bjr à tous.

suis entrain de code sur vb6.0

après avoir lié l'application à la base de données, à chaque fois que je tente d'enregistrer les données, je recois un message d'erreur comme suit:

"Erreur de connexion: Erreur de syntaxe dans l'instruction INSERT INTO".

je refais les codes plusieurs fois  mais rien ne change.

voici les codes que j'ai placés:

Private Sub CmdEnr_Click()
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim dbPath As String
    dbPath = "E:\Projets tutores 2024\Projet Monsengo\Syst\Gecre.mdb"
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath & ";"
    On Error GoTo ConnectionError
    conn.Open
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandText = "INSERT INTO FORMULAIRE (Numero, Date, Nomclient, Postnomclient, Sexe, Adresse, Datenais, Lieunais, Fonction, Typecre, Montcre, Echeance) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 7, Text1.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 10, Text2.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 15, Text3.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 30, Text4.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 1, Combo1.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 60, Text5.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 10, Text6.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 15, Text7.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 20, Text8.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 35, Combo2.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 15, Text9.Text)
    cmd.Parameters.Append cmd.CreateParameter(, adVarChar, , 30, Text10.Text)
    cmd.Execute
    MsgBox "Formulaire Enregistré dans la base de données avec succès !"
    conn.Close
    Exit Sub
ConnectionError:
    MsgBox "Erreur de connexion : " & Err.Description
End Sub

si vous pouvez m'aider, de l'aide svp

aidez moi