为什么事务提交失败？挂机等。。。

Dim cn     As ADODB.Connection
Dim rs     As ADODB.Recordset
Dim sql     As String
Dim intTrans     As Integer
rs.CursorLocation = adUseClient
cn.ConnectionTimeout = 10
cn.open
cn.open "Provider=MSDAORA.1;Password=1234;User ID=system;Data Source=whjk;Persist Security Info=True"
rs.open "select * from SYSTEM.DATA_CDC_ALL", cn, adOpenStatic, adLockReadOnly'dgData.Refresh ' DBGrid刷新On Error GoTo Err_ProInfointTrans = cn.BeginTrans           '开始更新事务
sql = "Delete From SYSTEM.DATA_CDC_ALL   "
cn.Execute sql
cn.CommitTrans     '提交事务
intTrans = 0
MsgBox "数据提交成功!", vbOKOnly + vbExclamation
Exit Sub
                    
Exit_ProInfo:
          Set rs = Nothing
          Exit Sub
                    
Err_ProInfo:
          If intTrans = 1 Then cn.RollbackTrans             '错误回滚
          MsgBox "数据提交失败!", vbOKOnly + vbExclamation
          Resume Exit_ProInfo提示:数据提交失败!" 这段代码也是在CSDN上好心的兄弟提供的，不知道为什么？请指点一下