> The qrTest table has 1 record in it.
> Problem is the loop executes twice.

I just did an experiment against RDB$DATABASE (which only ever has one
record) using TIB_Query and my duplicate of your code executed just
once.

I am inclined to think that the problem is probably due to some other
event code or control associated with qrTest.

You will need to experiement a little more to discover what is
happening. Perhaps breakpoints in your other event code (to see what
is getting hit) or you may need to put a breakpoint in the .Next
processing of the query source.

PS. I am guessing that you are using TIB_Query. For most scanning
operations TIB_Cursor is more efficient.

--
Geoff Worboys - TeamIBO
Telesis Computing