Erreur définie par l'application ou par l'objet

      
Sub ExportMysql()
Dim Maconnexion As ADODB.Connection
Dim monrecord As ADODB.Recordset
Dim NbLignes As Integer
Dim rowtable As Integer
Dim strSQL As String

Set Maconnexion = New ADODB.Connection
Set monrecord = New ADODB.Recordset

Maconnexion.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & "SERVER=localhost;" & "DATABASE=bd-gmao;" & "USER=root;" & "PASSWORD =;"

NbLignes = Worksheets("personnel").UsedRange.Rows.Count

With Worksheets("personnel")

         For rowtable = 2 To NbLignes
         strSQL = "insert into `bd-gmao`.`essai`(`id`,`nom`,`sexe`,`age`)" & "Values(" & .Cells(rowtable, 1).Value & ", " & .Cells(rowtabl, 2).Value & "," & .Cells(rowtable, 3).Value & ", " & .Cells(rowtable, 4).Value & ")"
         monrecord.Open strSQL, Maconnexion
         Next rowtable

End With

MsgBox "enregistrement réussi" & Chr(10) & (rowtable - 2) & "OK", vbInformation, "vérification de l'entrée des données"

End Sub