Dim Transaction As OleDb.OleDbTransaction
 Dim objCmd As New OleDb.OleDbCommand

            'inserimento()
            Dim strAddNew As String
            strAddNew = "Insert into Formati (Formato,FattoreMoltiplicazione,CodSettore) values ('" & strFormato & "'," & intFattoreMoltiplicazione & ",'" & CodSettore & "')"
            
            Transaction = Connetti.BeginTransaction() 'inizializzi una sessione con transazione.... da qui in poi è tutto in transazione

            Try
                objCmd.Connection = Connetti
                objCmd.Transaction = Transaction
                objCmd.CommandText = strAddNew
                objCmd.ExecuteNonQuery()

                Transaction.Commit() ' conferma delle modifiche

             
            Catch ex As Exception
                Transaction.Rollback() ' annullamento delle modifiche

            End Try