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