On Error Goto TheError
 
TransStart:
 
   DBEngine.BeginTrans
 
   'Löschroutine
   DB.Execute "DELETE * FROM ....."
 
   'Einfügeroutine je Datagrid Row
   mySQL = "INSERT INTO ..."
   DB.Execute mySQL, dbFailOnError
 
TransEnd:
 
   DBEngine.CommitTrans
 
Exit Sub
 
TheError:
 
   Select Case err.Number
      'ODBC
      Case 3146, 91, 3155, 3156, 3157
         DBEngine.Rollback
         Goto TransStart
      Case Else
         DBEngine.Rollback
         Goto TransStart
   End Select