vbs中Trans的有关问题

vbs中Trans的问题
一个vbs文件，将文件中的数据导入数据库
如果有一行数据错误，则回滚
为了出现错误不出现提示框 在开头用了On Error Resume Next 

大体是这样的
On Error Resume Next 

oConn.BeginTrans

If oConn.Errors.Count>0 Then
  oConn.RollBackTrans
  MoveFile fileName, "ERROR"
Else
  oConn.CommitTrans
  MoveFile fileName, "Success"
End If

现在的问题是 当出现错误的时候
也回滚 但是不执行MoveFile fileName, "ERROR"
而导入成功的时候 MoveFile fileName, "Success" 回执行
这是什么原因呢？
我开始以为是 On Error Resume Next 的原因，但是如果是这个原因的话 那么为什么还会执行回滚呢

请大虾们帮忙解决一下！！！！


------解决方案--------------------
去掉On Error Resume Next 再试
------解决方案--------------------
On Error Resume Next 

oConn.BeginTrans 

If oConn.Errors.Count>0 Then
On Error Goto 0 
oConn.RollBackTrans 
MoveFile fileName, "ERROR" 
Else 
oConn.CommitTrans 
MoveFile fileName, "Success" 
End If