getObjectContext的问题，急！[在线等待中...]

[matrix3301]

为什么我使用getObjectContext后程序始终告诉我为Nothing,以至于不能使用.setcomplete和.setabout。一使用就告诉我对象未定义。

源码如下：

Public Function test123() As Integer
On Error GoTo err_handle
Dim objContext As COMSVCSLib.ObjectContext
Set objContext = GetObjectContext

aaa = 3

test123 = aaa

Err.Raise (1)

objContext.SetComplete
Set objContext = Nothing

Exit Function
err_handle:
objContext.SetAbort
Set objContext = Nothing
test123 = aaa
End Function

[matrix3301]

这个问题没人知道吗？谁能帮帮我

[matrix3301]

这个NOTHING的问题我自己解决了。但好象test123出来的还是3，并不是我想象的回到aaa=3以前的值，请问objectcontext的事务处理的SETABOUT是回到getObjectContext的地方吗？

还是我的理解有问题，与SQL的事务相混淆了。