hammmmmm
agregaste las referencias necesarias para poder hacer la conexion?
chanceeeeeeeee
aique revisar todo
te dejo en la manera de q yo lo hago
para q veas mas o menos chance tu encuentres tu mismo error
jeje
Cita: Public Cxn As ADODB.Connection
'estas son publicas
Public AdoS As ADODB.Recordset
Public CxnFac As String
'la funcion que llamo para poder hacer la consulta
Function conectar()
Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
CxnFac = "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Port=3306;Option=131072;S tmt=;Database=dwin;Uid=root;Pwd=123456;"
Cxn.Open CxnFac ' Abrimos la conexion
Set AdoS = New Recordset
End Function
Private Sub XPButton1_Click()
' aqui en mi boton hago la consulta
Call conectar
AdoS.Open "select clave from maistros where clave='" & Text1.Text & "';", Cxn, adOpenStatic, adLockOptimistic
haber si te sirve de algo
prueba
y checa las regerencias y todo lo q tengas q agregar...