'我这里用VB的代码演示下给你,跟VBS差异不大
dim iflag as boolean
iflag = false
'如果出错直接跳至标签处
on error goto errlab
iflag = true
cn.BeginTrans '开启事务
……
errlab:
if err.number<>0 then
'如果有错误,事务回滚
if iflag then cn.RollbackTrans
else
'如果正常,事务提交
if iflag then cn.CommitTrans
end if