Dim varRow As Variant For Each varBmk In DBGrid1.SelBookmarks Data1.Recordset.Bookmark = varRow Data1.Recordset.Delete Next