Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button9.Click
 
'Prüfung ob Datensätze vorhanden
        If DV1.Count = 0 Then
            MessageBox.Show("kein Datensatz vorhanden", "Info!", _
              MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
 
        Else
            ' markierte Zeilen sammeln
 
 Dim col As New Collection
            DV1 = CType(CType(Me.BindingContext(DV1), CurrencyManager).List, _
              DataView)
            For i As Integer = 0 To DV1.Count - 1
                If DataGrid1.IsSelected(i) Then col.Add(DV1.Item(i).Row)
            Next
 
'Prüfung ob eine Zeile markiert ist
            If col.Count = 0 Then
                MessageBox.Show("kein Datensatz zum löschen ausgewählt, Sie" & _
                  "müssen erst einen Datensatz auswählen bevor Sie auf löschen" & _
                  "klicken", "Info!", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
                Exit Sub
 
            Else
                Dim Rueckgabe As Byte
                Rueckgabe = MessageBox.Show("Wollen Sie die Daten wirklich" & _
                  "löschen?", "Info!", 1, 32, 256)
                If Rueckgabe = 1 Then
 
 'Hier können Sie die Befehle eintragen,
                    'die ausgeführt werden sollen, wenn auf OK gedrückt wird.
 
                    ' markierte Zeilen löschen
                    For k As Integer = 1 To col.Count
                        CType(col.Item(k), DataRow).Delete()
                    Next
 
           'DataSet wird aktuallisiert
                        Me.OleDbDataAdapter1.Update(DS, "Tab1")
 
                        MessageBox.Show("Daten wurden gelöscht!", "Info!", _
                          MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                    Catch ex As Exception
                    End Try
 
                Else
                    'Hier können Sie die Befehle eintragen,
                    'die ausgeführt werden sollen, wenn auf Abbrechen gedrückt 
                    ' wird.
                End If
            End If
        End If
 
        End Sub

VB@rchiv its the Best