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