Public Class Command
 
#Region " Transaction"
        Private Shared GlobalTransaction As OleDbTransaction
        Private Shared isGlobalTransaction As Boolean
 
        Public Class Transaction
            Public Shared Sub Beginn()
                GlobalTransaction = con.BeginTransaction()
                isGlobalTransaction = True
            End Sub
 
            Public Shared Sub Commit()
                If isGlobalTransaction Then
                    GlobalTransaction.Commit()
                    GlobalTransaction = Nothing
                    isGlobalTransaction = False
                End If
            End Sub
 
            Public Shared Sub RollBack()
                If isGlobalTransaction Then
                    GlobalTransaction.Rollback()
                    GlobalTransaction = Nothing
                    isGlobalTransaction = False
                End If
            End Sub
 
            Public Shared Function State() As Boolean
                Return isGlobalTransaction
            End Function
        End Class
#End Region

try    
    command.Transaction.Beginn
    Command.insert(SQLString1)
    Command.insert(SQLString1)
    command.Transaction.Commit
catch ex as exeption
    command.transaction.Rollback
end Try