Visual Basic - busquedas con ADO

Hola

hasta ahora siempre he estado usando control data para conectar las BD a las aplicaciones, y para verificar que los datos no estaban en la tabla usaba:

buscar="codigo like ' " & numero & " ' "
data3.recordset.findfirst buscar
if data3.recordset.NoMatch then

quisiera saber como se hace esto mismo pero con ADO, mediante codigo, y ¿como pregunto si el puntero esta al princiopio de la tabla? es decir lo que con control data se hace:

if data1.recordset.BOF then
verdad=true
else
data1.recordset.movefirst
end if

Muchisimas gracias de antemano.

Para acceder con DAO lo debes de hacer tal y como lo estas haciendo con el control data, lo único es crear el objeto record set y esto se hace:

Dim DB as DataBase
Dim Rs as RecordSet

Set DB = opendatabase ("Nombre de la base de dato.mdb")
set Rs = DB.openrecordset ("Nombre de la tabla")

Luego todas las ordenes que estas usando para el data te valdrán para el RecordSet creado (Rs)

Espero que me hayas entendido
Suerte

Primero abres un Recordset ADO
Set Rs=New ADODB.Recordset
RS.Open "Select * From MiTabla",Cn 'Cn es la conexion a la Bd si no lo has hecho avisame
Bien para hacer lo que quieres no hace falta muchos cambios:

buscar="codigo like ' " & numero & " ' "
Rs.find buscar
if Not Rs.Eof then 'Esto te indica si es que hay algun registro
....

if Rs.BOF or Rs.Eof then 'Aqui te recomiendo que tambien preguntes por el fin de archivo
verdad=true
else
Rs.movefirst
end if

Suerte