Visual Basic - introducir el cod y q salga la inf restante d sta

estoy haciendo un programa n el q tengo q introducir n el casillero un codigo d una pieza y tien q aparecer dnd se guarda esa pieza, pero no se como se hace... solo kiero poner l codigo, dar a un boton y q aparezca, podrias ayudarme??????? pf!!!!! es urgente, muchisimas gracias!!!!

Buscala , con Find :
Si usas ADO:
Rs.MoveFirst
Rs.Find "ID=' " TRim(Text1.Text) & " ' "
If Not Rs.Eof then
Text2.Text=Rs!Nombre
Text3.Text=Rs!Direccion
Etc...
End If
Si usas DAO:
Rs.MoveFirst
Rs.FindFirst "Id=' " & Trim(Text1.Text) & " ' "
IF Rs.NoMatch=True then
....
End If