Salva MODIFICA o INSERIMENTO

ivate Sub SalvaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaToolStripMenuItem.Click
        'Qua invece � un po' diverso. Dipende dalla diversa struttura di ADO.NET 
        'Il comando di seguito avverte ADO.NET che abbiamo finito di apportare modifiche al dataset 
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        AmministratoriBindingSource.EndEdit()
        'Viene creato un CommandBuilder, un oggetto che si incarica di creare una query ad hoc per aggiornare la tabella del database 
        Dim cb As New OleDb.OleDbCommandBuilder(AmministratoriDaPt)
        Try
            AmministratoriDaPt.Update(MyDataSet, "Amministratori")
            LblStatus.Text = "Salvataggio Inserimento/Modifiche riuscito"
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Information, "KO! SalvaToolStripMenuItem_Click")
        End Try

BloccaModificaReadOnly(Me, True)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        'Il CommandBuilder agiorna la tabella. Il comando � simile all'update di ADO... 
    End Sub

ivate Sub SalvaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaToolStripMenuItem.Click
'Qua invece e' un po' diverso. Dipende dalla diversa struttura di ADO.NET

'Il comando di seguito avverte ADO.NET che abbiamo finito di apportare modifiche al dataset

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
AmministratoriBindingSource.EndEdit()
'Viene creato un CommandBuilder, un oggetto che si incarica di creare una query ad hoc per aggiornare la tabella del database

Dim cb As New OleDb.OleDbCommandBuilder(AmministratoriDaPt)
Try
AmministratoriDaPt.Update(MyDataSet, "Amministratori")
LblStatus.Text = "Salvataggio Inserimento/Modifiche riuscito"
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Information, "KO! SalvaToolStripMenuItem_Click")
End Try

BloccaModificaReadOnly(Me, True)

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
'Il CommandBuilder agiorna la tabella. Il comando e' simile all'update di ADO...

End Sub