Autres requet sql : Alimenter Base de donnée depuis VBA

Private Sub Ok_Click()

    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    
    Dim SQLStr As String

'-------------------------------------- je ne vois pas comment utiliser les parametres de ma connexion
    Server_Name = "127.0.0.1"
    Database_Name = "base"
    User_ID = "root"
    Password = "m02pas"
 
'-------------------------------------- Données à rajouter dans la base des données
Dim numero As String
Dim description_courte As String
Dim description_longue As String
Dim revision As String
Dim cree_le As String
Dim modifie_le As String
Dim createur As String
Dim etat As String
Dim matiere As String
Dim peinture As String
Dim cout_estime As String
Dim projet As String
Dim machine As String
Dim fournisseur As String
Dim cathegorie As String

'-------------------------------------- Attribution des données Textbox à mes variables
numero = TextBox_numero
description_courte = TextBox_description_courte
description_longue = TextBox_description_longue
revision = TextBox_revision
cree_le = TextBox_cree_le
modifie_le = TextBox_modifie_le
createur = TextBox_createur
etat = TextBox_etat
matiere = TextBox_matiere
peinture = TextBox_peinture
cout_estime = TextBox_cout_estime
projet = TextBox_projet
machine = TextBox_machine
fournisseur = TextBox_fournisseur
cathegorie = TextBox_cathegorie

'-------------------------------------- requet SQL

SQLStr = "insert into table01 (numero,description_courte,description_longue,revision,cree_le,createur,etat,matiere,peinture,cout_estime,projet,machine,fournisseur,cathegorie) values ('" & numero & "','" & description_courte & "','" & description_longue & "','" & revision & "','" & cree_le & "','" & createur & "','" & etat & "','" & matiere & "','" & peinture & "','" & cout_estime & "','" & projet & "','" & machine & "','" & fournisseur & "','" & cathegorie & "')"
  
'-------------------------------------- A partir de là mon programme ne marche pas
DoCmd.SetWarnings False
DoCmd.RunSQL SQLStr
DoCmd.SetWarnings True

End Sub