Cita:
Iniciado por soriketes donde en el textbox o el data?
Si quieres lo puedes poner asi:
Código:
Dim conn As ADODB.Connection
Private sub Text1_click ()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open "SELECT * FROM Tabla", conn
Text1.Text = rs!Campo1
Text2.Text= rs!Campo2