Visual Basic - urgente (por favor ayurdarme)

tengo problema a realizar una busqueda en un campo autonumerico. la busqueda la realizo con data1.recordset.findfirts el error tipo de dato.
me funciona en campos caracteres pero no en los numericos y autonumericos.

set tabla = Db.OpenRecordset("NombreTabla") 'No es necesario Select
busca = DatoNumerico
strbusca = ("nombreCampo =' " & busca
Tabla.FindFirst strbusca
Al ser campos númericios los que buscas, no los incluyas dentro de las comillas " "