Conectar Mysql Con VB6

[pangallo]

OK ANTES QUE NADA TIENES QUE BAJAR EL DRIVER PARA HACER LA CONEXION DE MYSQL CON VISUAL BASIC 6.0 una vez que o bajaste lo instalas, despues activas microsoft activex data objects 2.8 library y microsoft remote data object en preferencias una vez que tengas activado esto ya pones e siguiente codigo
Public Cn As ADODB.Connection
Public SQLServerConnection As String
Public Cm As ADODB.Command
Public Rs As ADODB.Recordset

Public Sub conexion()

Set Cn = New ADODB.Connection
Cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& " DATABASE=digitalexpress;" _
& "UID=root;PWD=; OPTION=3"
Cn.Open
End Sub
esto lo puse en un modulo y ya cada vez que vayas a ocupar la conexion mandas a traer la funcion.
espero te sirva