Excel VBA insert con Mysql

Cordial saludo, mi pregunta es la siguiente, agradezco a quien me ayude por favor...
Deseo hacer un Insert desde VBA Excel a una base de datos en mysql, el código que tengo es el siguiente:
Sub InsertData()
Dim strSQL As String
'Dim oConn As ADODB.Connection
'Set oConn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim con As New ADODB.Connection
con.Open "DSN=Factura"
With wsBooks
'Call esc(txt)
For rowCursor = 4 To 100
strSQL = "INSERT INTO factura(Titulo_Minero, Tipo, Ciclo,Producto,Zona1,Etapa_Contractual,Mineral,Numero_factura,Municipio,Valor_parcial) " & _
"VALUES ('" & Hoja2.Cells(rowCursor, 2) & "', '" & _
Hoja2.Cells(rowCursor, 3) & "', '" & _
Hoja2.Cells(rowCursor, 4) & "', '" & _
Hoja2.Cells(rowCursor, 5) & "', '" & _
Hoja2.Cells(rowCursor, 6) & "', '" & _
Hoja2.Cells(rowCursor, 7) & "', '" & _
Hoja2.Cells(rowCursor, 8) & "', '" & _
Hoja2.Cells(rowCursor, 9) & "', '" & _
Hoja2.Cells(rowCursor, 10) & "', '" & _
Hoja2.Cells(rowCursor, 11) & "', '" & _
Hoja2.Cells(rowCursor, 12) & "')"
rs.Open strSQL, con, adOpenDynamic, adLockOptimistic
'''''''' rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
'rs.Open strSQL, Cn
Next rowCursor
End With
End Sub
Pero al ejecutar el código me dice:
se ha producido el error -2147217887(8004e21) en tiempo de ejecución: El controlador ODBC vba excel no admite las propiedades solicitadas
me resalta la linea de código rs.Open strSQL, con, adOpenDynamic, adLockOptimistic

Gracias por la ayuda.
Att. Hernán Camilo MV