At 11:14 PM 22/06/2004 +1000, you wrote:

Correction

> with qryGetID do
> begin
> ib_transaction.StartTransaction;
> If NOT Prepared then Prepare;
> ParamByName('IDType').AsString := idtype;
> Execute;
> Result := FieldByName('NextID').AsString;

> ib_transaction.Commit;
> end;

H.