' markierte Zeilen sammeln
        Dim col As New Collection
        Dim dv As DataView = CType(CType(Me.BindingContext(DS, "DB2005_1"), _
          CurrencyManager).List, DataView)
        For i As Integer = 0 To dv.Count - 1
            If DataGrid1.IsSelected(i) Then col.Add(dv.Item(i).Row)
        Next

  ' markierte Zeilen löschen
                For k As Integer = 1 To col.Count
                    CType(col.Item(k), DataRow).Delete()
                Next

VB@rchiv its the Best