Es facil:
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
en el boton:
sql="select tus_campos from tu_tabla where tu_campo_para_busqueda=" & text1.text
set rs=cn.execute(sentencia)
if isnull(rs(0)) then
msgbox "No Existe el registro"
else
text2.text=rs!tucampo ' o tambien rs(1)
......
end if
Saludos