我编写的程序 在提交事务时出错,而不用事务则顺利通过 ,请高手指点!!

Question

程序部分代码如下:  
         On Error GoTo ERRORMSG3
                CNN.BeginTrans:     ' 提交事务
                CNN.Execute (SQLstr)
                CNN.CommitTrans
               GoTo SS3
ERRORMSG3:
                CNN.RollbackTrans     '出错后数据回滚
                Me.MousePointer = vbDefault
                Close #2
                MsgBox "数据分析失败！", vbCritical, "系统提示"
                Exit Sub
如果把上面的都去掉,只保留CNN.Execute (SQLstr)代码,则可以执行,而上面的代码总是出现数据回滚,sql语句不能执行 ,我非常不解,希望高手给予指点!!!

Answer 1

On Error GoTo ERRORMSG3
                CNN.BeginTrans:     ' 提交事务
                CNN.Execute (SQLstr)
                CNN.CommitTrans
               GoTo SS3
               exit sub   '------->加入这句试试
ERRORMSG3:
                CNN.RollbackTrans     '出错后数据回滚
                Me.MousePointer = vbDefault
                Close #2
                MsgBox "数据分析失败！", vbCritical, "系统提示"
                Exit Sub