調用Com+中定義的函數出錯,請各位大俠看看是什么問題!

事件日志錯誤:
IObjectControl::Activate() 方法失敗。物件的 CLSID 為: 
{849B6C09-3202-411E-AEC2-E782A41EA396}
伺服器應用程式 ID: {252BE792-6241-4983-8E6F-06D4B9750EC3}
伺服器應用程式名稱: ProviderInner
錯誤碼 = 0x80004005 : 不支援此種介面
COM+ 服務內部資訊:
檔案: .\jit.cpp, 行: 314
----------------------------
中間層定義函數:
function TProviderInner.CreateReguser(const sSQL: WideString): Integer;
begin
  Result := 0;
  With ADOQuery Do
    begin
      if Active then Close;
      SQL.Text := sSQL;
      Try
        ExecSQL;
        SetComplete;
      Except
        On Exception Do
          begin
            SaveLog(sSQL); //存儲出錯SQL語句  出錯結果=9
            Result := 9;
            raise;
            SetAbort;
          end;
      End;
    end;
end;
---------------------------------------------------
調用語句如下:
procedure TMainForm.SetPostClick(Sender: TObject);
var
  vIntf :variant;
  RetSult : integer;
  sSQL  :string;
begin
  sSQL := 'Insert into SUser(User_no,User_nam,User_pwd,User_type,User_Chked,User_RegDat)'+
          ' values(''%s'',''%s'',''%s'',''0'',''0'',''%s'')';
  sSQL := Format(sSQL,[User_noEdit.Text,User_namEdit.Text,UserPwd2.text,MyDatetoStr(Date)]);
  vIntf := CreateOleObject('Provider.ProviderInner');
  RetSult := vIntf.CreateReguser(sSQL);
  If RetSult = 9 then
     begin
       RegErrorLabel.Caption := '提交失敗,請更換另一帳號!';
       User_noEdit.SetFocus;
     end;
end;