SoloCodigo

Simplemente defines un variable que sea del estilo de la fórmula WHERE de SQL y haces un ADOobj.Find(VariabledeBusqueda)

Por ejemplo:
ValorBuscar = "LUCAS DE LA MORA EMILIA"
cBuscar = "NombreCliente like '" & ValorBuscar & "*'"
ADOobj.Recordset.MoveFirst  ' Cosa que no era necesaria con DAO porque hacía un .FindFIRST
ADOobj.Recosrset.Find (cBuscar)
If ADOobj.Recordset.NoMatch Then
msgbox("No se encuentra este dato.")
else
' realizar el proceso con el registro encontrado
endif

En realidad el uso del FIND o FINDFIRST de DAO son instrucciones que demoran mucho ya que recorre muchos registros hasta que encuentra el que cumple la condicion.

Yo prefiero hacer lo mismo pero desde la conexion.

Ejemplo

set rs = bd.execute "select * from tabla where nombres like '*" & texto & "*'"

Eso cargara un Recordset solo con los registros que cumplan esa condicion, ademas ocupara menos memoria y es mucho mas rapido, que cargar todos los registros y recorrerlos con un FIND.

Espero que esto sirva para mejorar tu Aplicacion.

No digo que lo otro no funcione, sino que esto es mejor.