He estado revisando el código y no veo el error
esto me suele pasar...
Pero debes mover el End If que acabas de poner despues de está linea
encontrado = true
dejando fuera del If la sentencia que dice:
Ob_RS.movenext
Porque eso es lo que ocasiona el bucle infinito.