Delphi 5.0 ADO with d5adoupdate2 fail with findNext ?

Delphi 5.0 ADO with d5adoupdate2 fail with findNext ?
At least this little piece of code fails with .. BOF EOF error in my case...(firebird,mssql6.5)
-------------
if active and findfirst then
repeat
...
until not findNext;
end;
--------------

If I just alter the file ADODB and compile with it works fine...

---------------- ADODB.PAS line 4689
if not Cursor.BOF and not Cursor.EOF then // added "Exception" ???
begin
if (Cursor <> Recordset) then
Recordset.Bookmark := FFindCursor.Bookmark;
Resync([rmExact, rmCenter]);
SetFound(True);
end;
except
----------------

Is This known bug or am I doing something terribly wrong?

-jukka


.