Conexion y consulta MySQL con VB 6.0

[sergi_climent]

Hola.
Par conectarte a Mysql desde VisualBasic, yo lo hago de la siguiente manera:
Esto lo tengo en un modulo.

Código:

Private Const DRIVER_MYSQL          As String = "DRIVER={MySQL ODBC 3.51 Driver};"
Private Const OPCIONS_MYSQL         As String = "SERVER=AQUI LA IP;PORT=3306;DATABASE=" & _
                                                "NOMBREBD;USER=NOMBRE USUARIO;PASSWORD= TU PASSWORD;"
                                              
                                               
Public conexionadoMySql             As ADODB.Connection

Sub openado()

    Set conexionadoMySql = New ADODB.Connection

    'conexion a MySql
    conexionadoMySql.Open DRIVER_MYSQL & OPCIONS_MYSQL
    
End Sub

Sub closeado()

    'cerramos conexion
    conexionadoMySql.Close
  
End Sub

y en un form uso funciones segun la consulta q quiero ejecutar

Código:

Sub Consulta_MySQL()
    openado
        Dim rsMySql As ADODB.Recordset
        Dim strMySql As String
        
        Set rsMySql = New ADODB.Recordset
        strMySql = "SELECT * FROM tabla"
        rsMySql .Open strMySql , conexionadoMySql
        If Not rsPC.EOF Then rsPC.MoveFirst
        While Not rsMySql.EOF
            ' aqui accedes al recordset y sacas los campos q te interesen
            campo= rsMySql!campo
      
        rsMySql.MoveNext
        Wend
       rsMySql.Close
    closeado
End Sub

saludos