Visual Basic - guardar vb6-mysql

hola atodos tengo un problema al guardar mis datos desde vb6 a mysql.. me tarda un poco.. este es el codigo que utilizo:

Private Sub GuardarVenta()
Dim VALORES As String
Dim CAMPOS As String
Dim CAMBIOS As String
Dim SQL As String
Dim TM As New Recordset
Dim I As Integer

If CONDECIMAL(Text8.Text) > CONDECIMAL(Text6.Text) Then
Else
MsgBox "El Monto Es menor o NO ingreso ni una Cantidad", vbCritical
Text8.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
End If

With FRM_CAJA

CAMPOS = "(NUMERO, NOTA, TIPO, CLIENTE, FECHA, DOLAR, CAJERO, TOTAL, ENTREGADO, CAMBIO, USUARIO, FACTURA, NUMFACTURA, NIT, SENOR, CDOLAR)"
VALORES = "( " & CrearID("VENTAS") & "," & "'" & .Text1.Text & "', " & _
"" & "'" & Combo1.Text & "'," & "'" & Text1.Text & "', " & _
"" & "'" & Format(.Text5.Text, "YYYY/MM/DD") & "'," & "'" & ConPunto(Text9.Text) & "', " & _
"" & "'" & .Text3.Text & "'," & "'" & ConPunto(.Text12.Text) & "', " & _
"" & "'" & ConPunto(Text8.Text) & "'," & "'" & ConPunto(Text10.Text) & "', " & _
"" & "'" & USERLINE & "'," & "'" & Check1.Value & "', " & _
"" & "'" & .Text2.Text & "'," & "'" & Text5.Text & "', " & _
"" & "'" & Text4.Text & "'," & "'" & ConPunto(Text11.Text) & "')"

Call GUARDARDATOS(CAMPOS, VALORES, "VENTAS")

For I = 1 To .Grilla.Rows - 1
If .Grilla.TextMatrix(I, 1) <> "" Then
CAMPOS = "(NUMERO, NOTA, COD_PRO, UND, CANTIDAD, PRECIO)"
VALORES = "( " & CrearID("VENTAS_DETALLE") & ", '" & .Text1.Text & "', " & _
"" & "'" & .Grilla.TextMatrix(I, 1) & "'," & "'" & .Grilla.TextMatrix(I, 4) & "', " & _
"" & "'" & .Grilla.TextMatrix(I, 3) & "'," & "'" & ConPunto(.Grilla.TextMatrix(I, 6)) & "')"

Call GUARDARDATOS(CAMPOS, VALORES, "VENTAS_DETALLE")

Dim VALOR As Integer
SQL = "SELECT CANTIDAD FROM ALMACEN WHERE COD_PRO = " & "'" & .Grilla.TextMatrix(I, 1) & "'"
Set TM = CON.Execute(SQL)
If TM.BOF Then
Else
VALOR = TM.Fields("CANTIDAD").Value - CDec(.Grilla.TextMatrix(I, 3))
CAMBIOS = "cantidad =" & VALOR & ""
CON.Execute "UPDATE ALMACEN SET " + CAMBIOS + " WHERE COD_PRO = " & "'" & .Grilla.TextMatrix(I, 1) & "'"

End If


End If
Next
End With
Call ImprimirNota

OJO.. tengo una function que hace el trabajo de guardar en un .bas:

Public Sub Guardar(CAMPOS As String, VALORES As String, Tabla As String)
COMM.ActiveConnection = CON
COMM.CommandText = "INSERT INTO " + Tabla + " (" + CAMPOS + ")" + " VALUES " + VALORES
COMM.Execute

End Sub

ojala me entiendan y puedan ayudarme....

Puedes echar un vistazo aqui http://www.foro.lospillaos.es/viewforum.php?f=22&sid=e2c9d89d2ad04112b494373e4bf5e155