bueno, yo estoy usando otra conexion diferente
y seria algo asi
Cita: Public Cxn As ADODB.Connection
Public AdoS As ADODB.Recordset
Public CxnFac As String
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()
Dim ex As String
Call conectar 'llamo a la funcion anterior
' aqui en text1.text es la parte donde va la consulta que seria la q ingresaste en text1, se concatena
AdoS.Open "&text1.text &", Cxn, adOpenStatic, adLockOptimistic
End Sub