bonjour toutle monde,je suis debutante en vb, svp aidez moi a corriger mon script vb... j'ai reussi de se connecter a ma base de donnée mysql mais j'arrive pas a realiser l'execution de ma requete insert:

Set conn = CreateObject("ADODB.Connection")
Connexion = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=pfe;UID=root;PASSWORD=;"
conn.CommandTimeout = 30
conn.Open connexion
msgbox "connexion au serveur OK"


For Each objEvent in colLoggedEvents
'Dim command
Dim sql 'As String
sql = "insert into logfile (category,computername,eventcode,message,recordnumber,sourcename,timewritten,eventtype,user) values ("& objEvent.Category & "," & objEvent.ComputerName & ", " & objEvent.EventCode & "," & objEvent.Message &","& objEvent.RecordNumber & "," & objEvent.SourceName & "," & objEvent.TimeWritten & ", " & objEvent.Type & ", " & objEvent.User & ");"

sql.Execute

MsgBox ("AJOUT EFFECTUE")
Next
merci d'avance