Error en sintaxis Excel VBA con mysql

Cordial saludo

quiero pedirles el favor de que si me ayudan con lo siguiente tengo este código:

Dim con As New ADODB.Connection
con.ConnectionString = "DSN=Factura; Server;SERVER=localhost;DATABASE=base"
con.Open
'Sql = "INSERT INTO factura (Titulo_Minero,Tipo,Ciclo,Producto,Zona1,Etapa_Contractual,Departamento,Mineral,Numero_factura,Municipio,Valor_parcial) VALUES ('543534','v2','1','Esmeralda','1','et','Boyaca','Esmeralda','1','Muzo','56')"
Sql = "INSERT INTO factura (Titulo_Minero,Tipo,Ciclo,Producto,Zona1,Etapa_Contractual,Departamento,Mineral,Numero_factura,Municipio,Valor_parcial) VALUES " & _
"'" & Hoja1.Cells(2, 1) & "', " & _
"'" & Hoja1.Cells(2, 2) & "', " & _
"'" & Hoja1.Cells(2, 3) & "', " & _
"'" & Hoja1.Cells(2, 4) & "', " & _
"'" & Hoja1.Cells(2, 5) & "', " & _
"'" & Hoja1.Cells(2, 6) & "', " & _
"'" & Hoja1.Cells(2, 7) & "', " & _
"'" & Hoja1.Cells(2, 8) & "', " & _
"'" & Hoja1.Cells(2, 9) & "', " & _
"'" & Hoja1.Cells(2, 1) & "');"
cn.Execute Sql

pero al ejecutarlo el compilador me dice que hay error en sintaxis..

en donde esta el error??

Gracias por la ayuda

Att, H.Camilo