hola
mveraa mira qui esta un codigo para conectarte por ADO y ODBC (para lo cual requieres el driver
MySQL-ODBC 3.51 o la version 5.0 para mysql 5
MySQL-ODBC 5teniendo el driver correcto, ya puedes conectarte de esta manera por ejemplo...
Private Sub CommandButton1_Click()
Dim cnn_Conexion As Connection
Dim rs_Tabla As Recordset
Dim ls_Servidor As String, ls_BaseDatos As String
Dim ls_Usuario As String, ls_pwd, ls_Cnn As String
Dim ls_SQL As String
ls_Servidor = "localhost"
ls_BaseDatos = "bd_405461"
ls_Usuario = "vb"
ls_pwd = "xAc"
ls_SQL = "Select * from t_menus"
ls_Cnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & ls_Servidor & ";DATABASE=" & ls_BaseDatos & ";USER=" & ls_Usuario & ";PASSWORD=" & ls_pwd & ";OPTION=3"
Set cnn_Conexion = New Connection
Set rs_Tabla = New Recordset
cnn_Conexion.Open (ls_Cnn)
rs_Tabla.Open ls_SQL, cnn_Conexion
'Si todo es correcto mostrara el nombre del primer campo, y su contenido
' en el primer registro
MsgBox rs_Tabla.Fields(0).Name & "= " & rs_Tabla.Fields(0)
'Cerrar y 'destruir' las varibles
rs_Tabla.Close
cnn_Conexion.Close
Set cnn_Conexion = Nothing
Set rs_Tabla = Nothing
End Sub
Ahora si no te aparecen los objetos de la liberia ADO es porque no la tienes agregada como referencia para hacer esto tienes que ir al menu
Herramientas\Referncias en el cuadro de dialogo seleccionas
Microsoft Activex Data Object 2.x Library (segun al version a utilizar)
con esto la te apareceran en la lista despues del punto
Suerte
