Como conectarme a MySQL desde VB6

1ro. Tener instalado un servidor Mysql con el puerto 3306 abierto y tener configurado el usuario correctamente para poder acceder remotamente o bien sea via localhost.

2do. Tener instalado en la computadora Cliente el Mysql ODBC Driver 3.51, que lo pueden descargar de You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login


3ro. bueno.. el codigo..

        Dim Cxn As ADODB.Connection
        Dim AdoS As ADODB.Recordset
	Dim CxnFac As String
	Set Cxn = New Connection
	Cxn.CursorLocation = adUseClient
	CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=IpServer;Port=3306;Option=131072;Stmt=;Database=recepfac;Uid=root;Pwd=TuContrasena;"
	Cxn.Open CxnFac ' Abrimos la conexion
	Set AdoS = New Recordset
	AdoS.Open "Select * From clientes", Cxn, adOpenStatic, adLockOptimistic ' Abrimos el REcordset y esta listo para usar
	MsgBox AdoS!nombre

Bueno basta decir que este caso tenemos una tabla llamada clientes que posee un campo llamado nombre..