Private Sub Command1_Click()
   Dim rs As ADODB.Recordset     'Рекордсет которым "роемся" в первом наборе данных
   Dim rs2 As ADODB.Recordset    'Рекордсет которым пишем во второй набор данных
   Set rs = rsGrid.Clone         'Используем только клоны рекордсета-источнка данных грида
   Set rs2 = rsGrid2.Clone       '(для Adodc - Adodc1.Recordset.Clone)
   rs.Filter = GetFilterForSelBookmarks(rs, DataGrid1)
   rs2.Filter = GetFilterForSelBookmarks(rs2, DataGrid2)
   Do Until rs.EOF Or rs2.EOF
      rs2( 3 ) = rs( 3 )
      rs.MoveNext
      rs2.MoveNext
   Loop
End Sub

Private Function GetFilterForSelBookmarks(ByRef rs As ADODB.Recordset, ByRef Grid_ As DataGrid) As String
   Dim s As String
   Dim Item As Variant
   'Находим стартовую позицию (наименьшую)
   For Each Item In Grid_.SelBookmarks
      If IsNumeric(Item) Then 'Item-ы бывают Null или Empty
         rs.MoveFirst         'здесь Item - это Bookmark,
         rs.Move Item -  1      'значит тупой сдвиг от начала на Bookmark записей, даст нам то что надо
         If s <> "" Then s = s & " OR "
         s = s & "ID = " & rs( 0 )    'Создаем условие Filter
      End If
   Next
   GetFilterForSelBookmarks = s
End Function