Private Sub Command1_Click()
    Dim rsГрида As ADODB.Recordset
    Dim i As Long
    Set rsГрида = rsДатаСурсГрида
    Dim s As String
    s = ""
    For i =  0  To Me.Grid1.SelBookmarks.Count -  1 
        rsГрида.Bookmark = Me.Grid1.SelBookmarks(i)
        If Len(s) >  0  Then s = s & ", "
        s = s & rsГрида.Fields("ПервичныйКлючТаблицы")
    Next
    If Len(s) >  0  Then
        s = "DELETE FROM ТАБЛИЦА WHERE ПервичныйКлючТаблицы IN (" & s & ")"
        If MsgBox("Будет удалено " & i & " записей" & vbCrLf & "подтверждаете удаление?", vbYesNo Or vbQuestion, "Подтверждение удаления") = vbYes Then
            МойКоннекш.Execute s
            'Здесь может быть обновление грида
        End If
    End If
    Set rsГрида = Nothing
End Sub