Problema con conexion a mysql

[emilio21]

te ayudo...

Proyecto -> Referencias -> Microsoft Remote Data Object 2.0
Proyecto -> Referencias -> Microsoft ActiveX Data Objects 2.0 Library

'para conectar con bd mysql

Public rs As ADODB.Recordset
Public con As Connection

Public Sub conectarBD()
Set con = New ADODB.Connection
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=user;pwd=1234567890;d atabase=base_de_datos;connection="
con.Open
End Sub


espero te sirva...