李维<<ADO/MTS/COM+高级程序设计>> P406页 为什么老是报错: Invalid data packet ??? 代码如下

这是中间层的一个接口方法, CLASS_mtsBooksObj是另一个COM+对象的ClassID,
IID_ImtsBooksObj 是接口ID,请问哪里有错???  感谢
procedure TmtsSecurityObj.GetBooks(vCookie: OleVariant;
  var vDatas: OleVariant);
var
  bookObj: ImtsBooksObj;
  iRecOut: Integer;
  Option : TGetRecordOptions;
  OwnerData: OleVariant;
  Params: OleVariant;
begin
  if True then
  begin
    try
      OleCheck(ObjectContext.CreateInstance(CLASS_mtsBooksObj, IID_ImtsBooksObj, bookObj));         //////////////////////////////////就是这一句报错, bookObj 没有返回值
      Option := [grMetaData, grReset];
      vDatas := bookObj.AS_GetRecords('DataSetProvider1', -1, iRecOut, byte(Option), '',Params, OwnerData);
      SetComplete;
    except
      SetAbort;
    end;
  end
end;