Código:
Espero puedan asesorarme con este problema y muchas gracias por todo. Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Conn.Open "driver={mysql odbc 3.51 driver};" _
& "user=root;" _
& "password=;" _
& "server=localhost;" _
& "database=midb;"
rs.Open "select * from clientes", Conn, adOpenStatic, adLockOptimistic
Text1.Text = rs.Fields("idcliente")
Text2.Text = rs.Fields("nombre")
Text3.Text = rs.Fields("apellidopaterno")
Text4.Text = rs.Fields("apellidomaterno")
Text5.Text = rs.Fields("direccion")
Text6.Text = rs.Fields("ciudad")
Text7.Text = rs.Fields("estado")
Text8.Text = rs.Fields("nota")
End Sub




