Visual Basic - ayudaaa

hola quisiera saber como hago para crear un boton de busqueda.
un ejemplo
tengo la base de datos de una eps
y que al insertar el numero del carnet
se llenen los text con la informacion que esta en la base de datos
si me pueden ayudar
lo agradeceria

' dentro de la rutina donde pondras la funcion debes poner
Set pOperArchivo = CreateObject("Scripting.FileSystemObject")

Private Function LeeTXT(Ruta As String, archivo As String) As ADODB.Recordset
'Archivo es sin el .txt
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

'Cadena de conexión
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & Ruta & ";", "", ""

'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From
rs.Open "select * from [" & archivo & "#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText

'eliminamos las variables
Set fComponentes = rs
Set rs = Nothing
Set conn = Nothing
End Function

'luego simplemente tienes que filtrar el RS

Ejemplo

dim RS As New ADODB.Recordset

set RS = LeeTXT("C:/","Miarchivotxt")
luego

RS.Filter "campo1='%" & TEXT1.TEXT &"%' "

Esto busca o filtra al campo1 que puede ser cualquier otro nombre , con lo que se ingrese en text1.text

Espero te sirva este ejemplo

saludos

Rolando Lau