Problem beim Löschen von Datensätzen

[Fleance]

Hallo

Ich habe in meinem DataGrid eine Tabelle mit Daten eingelesen und nun möchte ich markierte Zeilen aus diesem DataGrid löschen. Doch leider funktioniert das nicht so wie ich mir das wünsche (funktioniert nämlich gar nicht )

Private Sub cmdEntfernen_Click()
    Dim Bookmark As Variant
  
    With DataGrid1
    ' alle selektierten Datenzeilen durchlaufen
    For Each Bookmark In .SelBookmarks
        .Bookmark = Bookmark

        ' Datensatz löschen
        RS.Delete adAffectCurrent
    Next
    End With
End Sub

Er markiert mir immer wieder die Zeile: RS.Delete adAffectCurrent mit der Meldung:

Laufzeitfehler '-2147467259 (80004005)':

Die Schlüsselspalteninformationen sind ungenügend oder inkorrekt. Es
sind zu viele Zeilen von der Aktualisierung betroffen.


EDIT:

So hab den Fehler nun einfach abgefangen. Funktioniert zwar aber ich weiß noch immer nicht warum der Fehler auftritt.

Private Sub cmdEntfernen_Click()
    On Error Resume Next
    
    Dim Bookmark As Variant
  
    With DataGrid1
    ' alle selektierten Datenzeilen durchlaufen
    For Each Bookmark In .SelBookmarks
        .Bookmark = Bookmark

        ' Datensatz löschen
        RS.Delete adAffectCurrent
    Next
    End With
End Sub