Private Sub Command1_Click()
   Dim rs As ADODB.Recordset
   Dim s As String
   Dim Item As Variant
   s = ""
   Set rs = rsGrid.Clone
   For Each Item In DataGrid1.SelBookmarks
      rs.Move Item,  0 
      s = s & rs( 3 ) & vbCrLf
   Next
   MsgBox s
End Sub

Private Sub Command1_Click()
   Dim rs As ADODB.Recordset
   Dim s As String
   Dim Item As Variant
   s = ""
   Set rs = rsGrid.Clone
   For Each Item In DataGrid1.SelBookmarks
      rs.MoveFirst
      rs.Move Item -  1 
      s = s & rs( 3 ) & vbCrLf
   Next
   MsgBox s
End Sub

Private Sub Command1_Click()
   Dim rs As ADODB.Recordset
   Dim rs2 As ADODB.Recordset
   Dim Item As Variant
   Set rs = rsGrid.Clone
   Set rs2 = rsGrid2.Clone
   SetBookmarkFor_rsTarget rs2
   For Each Item In DataGrid1.SelBookmarks
      If IsNumeric(Item) Then 'Item-û áûâàþò Null èëè Empty
         rs.MoveFirst
         rs.Move Item -  1 
         rs2("ÏîëåÕ") = rs("ÏîëåY")
         rs2.MoveNext
      End If
   Next
End Sub

Private Sub SetBookmarkFor_rsTarget(ByRef rs As ADODB.Recordset)
   Dim i As Long
   Dim Item As Variant
   i =  0 
   'Íàõîäèì ñòàðòîâóþ ïîçèöèþ (íàèìåíüøóþ)
   For Each Item In DataGrid2.SelBookmarks
      If IsNumeric(Item) Then
         If i =  0  Then
            i = Item
         Else
            If i < Item Then i = Item
         End If
      End If
   Next
   'Ñòàâèì íà íåå ðåêîðäñåò
   rs.MoveFirst
   rs.Move i -  1 
End Sub

Private Sub Command1_Click()
   Dim rs As ADODB.Recordset     'Рекордсет которым "роемся" в первом наборе данных
   Dim rs2 As ADODB.Recordset    'Рекордсет которым пишем во второй набор данных
   Dim Item As Variant           'Каким типом перебираем SelBookmarks - не знаю. Поэтому Variant
   Set rs = rsGrid.Clone         'Используем только клоны рекордсета-источнка данных грида
   Set rs2 = rsGrid2.Clone       '(для Adodc - Adodc1.Recordset.Clone)
   SetBookmarkFor_rsTarget rs2
   For Each Item In DataGrid1.SelBookmarks
      If IsNumeric(Item) Then 'Item-ы бывают Null или Empty
         rs.MoveFirst         'здесь Item - это Bookmark,
         rs.Move Item -  1      'значит тупой сдвиг от начала на Bookmark записей, даст нам то что надо
         rs2("ПолеХ") = rs("ПолеY")    'Это копирование нужных данных
         rs2.MoveNext         'Перемещаем на следующую запись получатель данных
      End If
   Next
End Sub
'Установка позиции рекордсета-приемника данных на первую выделенную строку во втором гриде
'т.к. SelBookmarks - не отсортированы
'Можно было просто  rs.Move DataGrid2.Bookmark
Private Sub SetBookmarkFor_rsTarget(ByRef rs As ADODB.Recordset)
   Dim i As Long
   Dim Item As Variant
   i =  0 
   'Находим стартовую позицию (наименьшую)
   For Each Item In DataGrid2.SelBookmarks
      If IsNumeric(Item) Then
         If i =  0  Then
            i = Item
         Else
            If i < Item Then i = Item
         End If
      End If
   Next
   'Ставим на нее рекордсет и потом будем двигаться от нее на шаг в каждом цикле
   rs.MoveFirst
   rs.Move i -  1 
End Sub