Visual Basic para Aplicaciones - probremas con un recordset

Tengo este problema:
Al momento de buscar un registro en un recordset no me debuelve la posicion en la que encuentra el registro.
parte del codigo:
strfind="clave='"& text1&"'"
adodc1.recordset.movefirst
adodc1.recordset.find strfind
if not adodc1.recordset.eof then
aprecno=adodc1.recordset.boomark
else
msgbox "El registro no fue encontrado"
endif

El problema es que no me debuleve la posicion del registro encontrado y no se que pase puesto que mi codigo esta bien.

De antemano Gracias