Как в DataGrid выделить строку на событие
dataGrid_MoveMouse()
Воспользовалась таким способом, но он выделяет все на что попадает "мышь"
обнулить SelBookmarks не удается.
If grid2.RowContaining(Y) > 0 Then
grid2.Row = grid2.RowContaining(Y)
grid2.SelBookmarks.Add grid2.Bookmark
Debug.Print "Число выделенных строк:", grid1.SelBookmarks.Count
Else
grid2.Row = 0
'grid2.SelBookmarks 0
End If

Эффект достигается такой, чтобы в открытом DataGrid при наведении на строку она выделялась, а при событии Click выбиралось значение и вставлялось в другой DataGrid.

С ошибкой разобралась, все работает на Ура.
Может кому пригодиться.
Private Sub grid2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' отчистить ранее вы деленную строчку
Do While grid2.SelBookmarks.Count <> 0
grid2.SelBookmarks.Remove 0
Loop
' выделить строчку при наведении на нее мыши
If grid2.RowContaining(Y) > 0 Then
grid2.Row = grid2.RowContaining(Y)
grid2.SelBookmarks.Add rs2.Bookmark
Debug.Print "Число выделенных строк:", grid2.SelBookmarks.Count
Else
grid2.Row = 0
grid2.SelBookmarks 0
End If

End Sub