Como conectarse a base de datos mysql Utilizando VB6

Ejemplo en Visual Basic 6 para conectarse a una Base de datos en MySQL

'********************************************************************
'Adalberto Chavez
'Lima - Peru

'********************************************************************
'Declaramos nuestra constante de conexion
'Para poder utilizar una constante de conexion desde todo el proyecto
'debemos crear un modulo donde poner este codigo
'y para declarar la constante debemos utilizar Public o Global
'en este caso vamos a utilizar Dim (Local)

Dim Cn As ADODB.Connection

Private Sub Command1_Click()
On Error GoTo ErrFind
'Antes que nada debemos agregar en el menu:
'Proyecto/Referencias
'Seleccionar: Microsoft Activex data Objects 2.8 Library

    Set Cn = Nothing 'Limpiamos la conexion
    Set Cn = New ADODB.Connection 'Seteamos la Conexion en nuestra constante
    
    Cn.CursorLocation = adUseClient 'Utilizamos Cursor de Cliente
    'Establecemos la cadena de conexion
    Cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                          "SERVER=localhost;" & _
                          "PORT=3306;" & _
                          "UID=root;" & _
                          "PASSWORD=test;" & _
                          "DATABASE=test;"
    'Abrimos nuestra conexion
    
    Cn.Open
    'Mandamos un mensaje al usuario, advirtiendo que la conexion fue exitosa
    MsgBox "Programa: Exito"
    Exit Function
ErrFind:
'Mensaje de Errores en la conexion
    MsgBox Err.Description, vbInformation, App.Title
End Sub