This example loops through the rows the user has selected and deletes them from the database.
Sub DeleteRows()
    Dim varBmk As Variant
    For Each varBmk In DataGrid1.SelBookmarks
        Data1.Recordset.Bookmark = varBmk
        Data1.Recordset.Delete
        Data1.Refresh
    Next
End Sub