Ayuda En Vb6 Boton De Buscar En Una Bd Dentro De Un Form

[colinaoz]

Amigos Necesito Que Me Ayuden Con Esto Tengo Un Formulario En El Cual Tengo Varios Campos Es Decir, Nombre,apellido Direccion CÉdula.etc.y Tengo Un Boton De Buscar Y Un Texbox Necesito Que Me Busque Por Cedula A La Persona Que Desee Buscar,que Al Incluir El Numero De Cedula En El Texbox. Y Presione Buscar En El Boton Se Ubique Automaticamente La Persona Con Ese Numero De Cedula Que He Introducido.ayuda Con Este Porfa........no Se Que Hacer Gracias

[jrp01]

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