事件回滚问题哪位大虾帮忙？？？？

我运用了事件回滚，但一直报错，请帮我看一下  
  Public   Function   ExecSql(ByVal   SqlStr   As   String)   '添加、删除、修改  
          On   Error   GoTo   Err_Rollback  
          Set   cnn   =   New   ADODB.Connection  
  '       cnn.BeginTrans  
          cnn.Open   ConnectString  
          cnn.Execute   SqlStr  
  '       cnn.CommitTrans  
          Set   cnn   =   Nothing  
          Exit   Function  
  Err_Rollback:  
  '       cnn.RollbackTrans  
          Resume   Err_Rollback  
  End   Function 问题点数：0、回复次数：0Top

相关问题

• cnn
• 事件回滚
• sqlstr
• rollback
• err
• function
• set

• 帖主：surpriseruck

• Visual Basic类图书
• Visual Basic类源码下载