My tib_cursor has the following sql and delphi code. I get the below
error (on the open statement or on a first statement if I use that
instead). I have checked all the sample programs and faq and can't
find what I'm doing wrong. Also, does a tib_cursor need keylinks? Any
help would be appreciated.

-----------------------------------------------
sql =

SELECT
I.ITEMID, I.ORDERID, I.PARTID, I.QUANTITY, I.UM,
I.ITEMDATE, P.PARTNUMBER, O.PURCHASEORDER
FROM
T_ITEM I, T_ORDER O, T_PART P
WHERE
I.ITEMID = :P_ITEMID
AND I.ORDERID = O.ORDERID
AND I.PARTID = P.PARTID

-----------------------------------------------
delphi code =

with MyCursor do begin
if Active then Close;
ParamByName('P_ITEMID').AsInteger := CurrentId;
Prepare;
Open;
end;

-----------------------------------------------
ISC ERROR CODE: 335544374
ISC ERROR MESSAGE:
Attempt to fetch past the last record in a record stream
-----------------------------------------------