Cancellazione Record da DataAdapter

Private Sub CancellaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancellaToolStripMenuItem.Click
        'Anche in questo caso i comandi sono simili, ma non uguali 
        Dim I = MsgBox("Vuoi cancellare il corrente Record?", MsgBoxStyle.Critical + MsgBoxStyle.YesNo, "Cancellazione in corso") '= MsgBoxResult.Ok Then
        If I = 6 Then
            'Qusta riga rimuove la riga corrente dalla tabella nel dataset 
            Try
                AmministratoriBindingSource.RemoveCurrent()
                Dim cb As New OleDb.OleDbCommandBuilder(AmministratoriDaPt)
                AmministratoriDaPt.Update(MyDataSet, "Amministratori")
                'Per� questo NON � sufficiente, si deve togliere la riga anche dalla tabella nel database. 
                'Questo viene fatto con la terza riga, la seconda crea il solito commandbuilder 
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Information, "KO! CancellaToolStripMenuItem_Click")
            End Try
        End If

End Sub

Private Sub CancellaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancellaToolStripMenuItem.Click
'Anche in questo caso i comandi sono simili, ma non uguali

Dim I = MsgBox("Vuoi cancellare il corrente Record?", MsgBoxStyle.Critical + MsgBoxStyle.YesNo, "Cancellazione in corso") '= MsgBoxResult.Ok Then
If I = 6 Then
'Qusta riga rimuove la riga corrente dalla tabella nel dataset

Try
AmministratoriBindingSource.RemoveCurrent()
Dim cb As New OleDb.OleDbCommandBuilder(AmministratoriDaPt)
AmministratoriDaPt.Update(MyDataSet, "Amministratori")
'Pero' questo NON e' sufficiente, si deve togliere la riga anche dalla tabella nel database.

'Questo viene fatto con la terza riga, la seconda crea il solito commandbuilder

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "KO! CancellaToolStripMenuItem_Click")
End Try
End If

End Sub