如何通过 ADODB 连接在 Excel VBA 中使用运行时解决错误 91？

Question

嗯......我的问题是我在 Excel 中运行一个宏，我从单元格中获取值并使用 ADODB 连接将它们插入到本地 MySQL 数据库中。

问题是运行时这个著名的错误 91 出现在我将命令发送到数据库的行中（我正在使用 Workbench 来管理该数据库）。 我的代码是：

Private Sub btnAgregarE1_Click()
    Sheets("EMPLEADO").Select
    Range("B4").EntireRow.Insert
    Range("B4").Value = Me.txtCodigoEmpleadoE1.Value
    Range("C4").Value = Me.txtNombreE1.Value
    Range("D4").Value = Me.txtFechaE1.Value
    Range("E4").Value = Me.txtReferenciaE1.Value
    Range("F4").Value = Me.txtDireccionE1.Value
    txtCodigoEmpleadoE1.Value = Range("J3").Value

    Me.txtNombreE1.Value = Empty
    Me.txtFechaE1.Value = Empty
    Me.txtReferenciaE1.Value = Empty
    Me.txtDireccionE1.Value = Empty

    Me.listaEmpleado.RowSource = "tEmpleado"
    Me.listaEmpleado.ColumnCount = 5


    Dim con As ADODB.Connection

    Set con = New ADODB.Connection
    con.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=bdferreteria;USER=PruebaUser;PASSWORD=Passw0rd;"
    Dim rng As Range
    Set rng = Application.Range("tEMPLEADO")
    Dim row As Range
    Dim instructsql As String
    'instructsql = "Insert into EMPLEADO(Cod_empleado, Nombre, Fecha_inicio, Referencia, Direccion) values ('" & row.Cells(1).Value & "', '" & row.Cells(2).Value & "'," & row.Cells(3).Value & "," & row.Cells(4).Value & "," & row.Cells(5).Value & ")"
    con.Execute "Insert into EMPLEADO(Cod_empleado, Nombre, Fecha_inicio, Referencia, Direccion) values ('" & row.Cells(1).Value & "', '" & row.Cells(2).Value & "'," & row.Cells(3).Value & "," & row.Cells(4).Value & "," & row.Cells(5).Value & ")"
    con.Close

错误就在这一行：

    con.Execute "Insert into EMPLEADO(Cod_empleado, Nombre, Fecha_inicio, Referencia, Direccion) values ('" & row.Cells(1).Value & "', '" & row.Cells(2).Value & "'," & row.Cells(3).Value & "," & row.Cells(4).Value & "," & row.Cells(5).Value & ")"

我尝试声明 object，然后是一个空变量，然后我将instructsql创建为字符串并尝试执行con.Execute命令，但无论我做什么，错误总是出现在该特定行中。

任何帮助将不胜感激

这是错误消息：