VB6.0 SP6 y MySQL

[fradve]

Lo primero que tienes que hacer es descargarte el control ODBC de la pagina de mysql.

El código para que te puedas conectar es:

Código vb:

Dim cn As ADODB.Connection
Dim res As ADODB.Recordset
Dim conexion As String
 
Private Sub Form_Load()
    
    Set cn = New ADODB.Connection
    conexion = "driver={MySQL ODBC 3.51 Driver};" _
                        & "SERVER=localhost;" _
                        & "DATABASE=sms;" _
                        & "UID=root;PWD=123456;OPTION=3"
                            
    cn.ConnectionString = conexion
    cn.Open
    
    Set res = New ADODB.Recordset
    With res
        .ActiveConnection = cn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
    End With
    
    res.Open "SELECT id, tlf, msj, stad FROM send WHERE stad=0"
    Set DataGrid1.DataSource = res
End Sub
 

La otra parte ya la puedes hacer tú. Cualquier duda posteala...