Inserción de registros de Excel vba a Mysql

Cordial saludo

Quiero pedirles el favor de que si me ayudan con lo siguiente:

Por que con el siguiente código solo me inserta el último registro mas no todo lo que esta dentro de mi hoja de calculo de Excel.

el código que tengo es:

' Connection variables
Dim con As New ADODB.Connection
con.Open "DSN=Factura"
If con.State = 1 Then
Dim com As New ADODB.Command
Dim registros As Integer
' com.CommandText = "select * from factura"
com.ActiveConnection = con
com.CommandType = adCmdText
registros = 0
For i = 4 To 31
' com.CommandText = "insert into factura(Titulo_Minero, Tipo, Ciclo,Producto,Zona1,Etapa_Contractual,Mineral,Numero_factura,Municipio,Valor_parcial) values " & _
' Hoja2.Cells(i, 2) & "','" & _
' Hoja2.Cells(i, 3) & "','" & _
' Hoja2.Cells(i, 4) & "','" & _
' Hoja2.Cells(i, 5) & "','" & _
' Hoja2.Cells(i, 6) & "','" & _
' Hoja2.Cells(i, 7) & "','" & _
' Hoja2.Cells(i, 8) & "','" & _
' Hoja2.Cells(i, 9) & "','" & _
' Hoja2.Cells(i, 10) & "','" & _
' Hoja2.Cells(i, 11) & "','" & _
' Hoja2.Cells(i, 12) & "');"
registros = registros + 1
com.CommandText = "insert into factura(Titulo_Minero, Tipo, Ciclo,Producto,Zona1,Etapa_Contractual,Departamento,Mineral,Numero_factura,Municipio,Valor_parcial) values ('" & Hoja2.Cells(i, 2) & " ' , ' " & Hoja2.Cells(i, 3) & "', '" & Hoja2.Cells(i, 4) & " ', '" & Hoja2.Cells(i, 5) & " ', '" & Hoja2.Cells(i, 6) & " ','" & Hoja2.Cells(i, 7) & " ', '" & Hoja2.Cells(i, 8) & " ', '" & Hoja2.Cells(i, 9) & " ','" & Hoja2.Cells(i, 10) & " ', '" & Hoja2.Cells(i, 11) & " ', '" & Hoja2.Cells(i, 12) & " ')"
If registros > 0 Then
MsgBox "registros insertados"
Else
MsgBox "registro no insertado"
End If
Next i
com.Execute registros
con.Close
Else
MsgBox "Error en conexión"
End If
'Set conn = New ADODB.Connection
'conn.Open "DRIVER={MySQL ODBC 3.52 Driver}" _
'& ";SERVER=" & server_name _
'& ";DATABASE=" & database_name _
'& ";UID=" & user_id

Gracias por la ayuda

Att. Hernán Camilo M.V