dim cn as new adodb.connection
dim rs as new adodb.recordset
dim sql as string
en el load de la forma:
cn.open "Tu cadena de conexion"
en el boton:
sql="select (*) from tu_tabla where cedula =" & text1.text 'si es numerico
sql="select (*) from tu_tabla where cedula ='" & text1.text & "'" 'si es alfanumerico
set rs=cn.execute(sql)
if rs(0) =0 then
msgbox "No se encontro el registro"
else
sql="select Nombre,apellido, Direccion, Cedula from Tu_tabla where cedula
like '" & text1.text & "'" 'si es alfanumerico
sql="select Nombre,apellido, Direccion, Cedula from Tu_tabla where cedula =
" & text1.text 'Si en numerico
set rs.cn.execute(sql)
text2=rs(1)
text3=rs(2)
text4=rs(3)
end if
Saludos
