RE:BUSQUEDA USANDO FINDFIRST
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