关于COM+中的事务处理(各位大侠请帮帮我,急!!!)

Question

当com+嵌套调用时,若外面的com+出错怎样让它里面所有调用com+的执行操作都无效即回滚.我这样做但不行'A com+
Public Sub AA ()   On Error GoTo ErrorHandle   Dim objCtx  As ObjectContext
 Dim objAccess As Object' 创 建 组 件 实 例          Set objAccess = GetObjectContext.CreateInstance("OpenConn.TableAccess") 'B COM+    '执行插入操作
     strSQL = "Insert Into Sys_Org_Mac(Org_id, Mac_number, Busi_type) Values('" & strOrg_id & "','" & strMac_number & "','" & strBusi_type & "')"
     objAccess.Command (strSQL)
    '调用其他COM后再进行插入操作
     Dim objSubCom As Object
  '   Set objSubCom = objCtx.CreateInstance("SubCom.clsSubCom")
        Set objSubCom = GetObjectContext.CreateInstance("SubCom.clsSubCom")
        
     Call objSubCom.RunSQL(objAccess)
    
    ' 正 确 结 束 事 务 处 理
objCtx.SetComplete  Exit SUBErrorHandle:    If Not objCtx Is Nothing Then
      objCtx.SetAbort
    End IfEND SUB