Visual Basic - TextBox y ADO.

Necesito poner un número en un textbox y que con él consulte una base de datos de obras sociales y que luego en otro textbox recepcione dicho nombre. Desde ya gracias.

Ok, amigo puedes hacerlo asi, pero te la paso en dos partes, por que no me deja en uno solo!!!
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Private Sub Form_Load()
Conectar
End Sub
Sub Conectar()
On Error GoTo Errores
Dim Ruta As String
Dim NomBase As String
NomBase = "BaseDatos.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
Errores:
If Err.Number <> 0 Then Errores
End Sub

continuacion:
Sub Errores()
Msg = "Error Ocasionado Por:" + Chr(13) + Err.Description
MsgBox Msg, vbCritical, "Error" + Str(Err.Number)
Err.Clear
End Sub

Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
'Capturas el Numero
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
sql = "Select * From Tabla1 Where Campo1= " & Text1
Registro
Rec.Open sql, cnbase
If Rec.RecordCount > 0 Then
Text1 = Rec!Campo1
Text2 = Rec!Campo2
Else
MsgBox "Dato No Encontrado", vbInformation
Text1 = "": Text2 = ""
Text1.SetFocus
End If
End If
End Sub