La tabla está en Access y he comprobado que hay que hacer el rs.movenext porque sino no avanza al siguiente registro.
He probado ha hacer lo siguiente como tu me indicas y si no he entendido mal he hecho esto.
Código:
if rs.bof and rs.eof then
rs.movefirst
do while Trim(rs("empresaoferta")) = Trim(usuarioaborrar)
rs.delete
rs.movenext
loop
end if
Entiendo que le estoy diciendo que:
mientras rs("empresaoferta") y usuarioborrar sean iguales borre el registro.
Lo que pasa es que o yo estoy muy obcecado o el alzheimer llama a mi puerta.
Gracias