Visual Basic - BUSQUEDA USANDO FINDFIRST

POR FAVOR HERMANOS, QUIERO SABER COMO BUSCAR UN REGISTRO EN UNA BASE DE DATOS DISEÑADA EN ACCESS.

GRACIAS ANTICIPADAS

dim Db as adodb.connection
dim Rs as adodb.recordset
set db=new adodb.connection
set rs= new adodb.recordset
db.open"CadenaConexion","Usuario","Password"
rs.open "SELECT * FROM Tabla",Db, adOpenDynamic, adLockOptimistic, adCmdText
if rs.bof=false and rs.eof=false then
rs.movefirst
rs.find "NombreCampo=" + "'" + ValorBuscado + "'"
if rs.eof=false ' lo encuentra sino el valor es =true llega al fin del registro
lo que tengas que hacer
else

lo que quieras hacer con el valor
end if
rs.close
set rs=nothing
db.close
set db=nothing