actualizar una tabla de mysql desde vb 6

[gerardo_goh]

Hola que tal a todos:
tengo la siguiente situacion, tengo una tabla que se llama tblprueba tiene 2 columnas, esta tabla esta diseñada en MySQL, los campos son los siguiente:

idcliente integer not null
sistema varchar(10) not null

diariamente lo actualizo lo hago desde un archivo de excel con extension csv.,pero primeramente el archivo original tiene formato .xls y en ese archivo tiene 30 columnas, yo nada mas necesito dos (idcliente y sistema), en el proyecto de vb 6 tengo un datagrid y si puedo cargar los datos del archivo de excel.xls al datagrid, pero quiero que estos datos que ya estan en el datagrid se grabe en la tabla de mysql tblprueba, me pueden ayudar, anexo mi codigo del vb.

codigo en el formulario

Option Explicit
Public rs_tblprueba As ADODB.Recordset

Sub datos_tblprueba()
Dim consecutivo As Long

Set rs_tblprueba = New ADODB.Recordset
On Error Resume Next
With rs_tblprueba
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT * FROM tblprueba"
End With
End Sub


Private Sub cmdExcel_Click()
Dim obj As New Class1
Set DataGrid1.DataSource = obj.Leer_Excel(App.Path & "\DATOS\" & "tablaoriginal.xls", "repi")
Set obj = Nothing
End Sub

Private Sub Form_Load()
Dim obj As New Class1
Set dgExcel.DataSource = obj.Leer_Excel(App.Path & "\DATOS\" & "tablaoriginal.xls", "repi")
Set obj = Nothing
End Sub




codigo en el modulo tipo clase



Option Explicit

'devuelve un objeto Recordset con los datos de la hoja
Public Function Leer_Excel(ByVal PathXls As String, Hoja As String) As ADODB.Recordset

On Error GoTo ErrorFunction
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cs As String

rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic

cs = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & PathXls

Hoja = "[" & Hoja & "$" & "]"

'rs.Open "SELECT * FROM " & Hoja, cs
rs.Open "SELECT c_cliente,c_sistema FROM " & Hoja, cs
Set Leer_Excel = rs
Set rs = Nothing
Exit Function
ErrorFunction:
MsgBox Err.Description, vbCritical
Err.Clear
End Function