Private Sub DataGrid1_DblClick()
   If IsNull(DataGrid1.Bookmark) Then Exit Sub  'Возможно, еще проверки надо добавить EOF, BOF
   
   Dim rs As ADODB.Recordset
   Set rs = DataGrid1.DataSource.Clone 'Если DataSource - не рекордсет, DE, поправить эту строчку
   rs.Bookmark = DataGrid1.Bookmark
'Покажем содержимое текущей строки грида ...
   Dim f As ADODB.Field
   Dim s As String
   For Each f In rs.Fields
      s = s & f.Value & vbCrLf
   Next
   MsgBox s  
' ... А можно было передать rs("ID") форме отображающей единичную запись
End Sub

Public Sub LoadRecord(byval ID as Long)
   rsOrders.Open "SELECT * FROM Orders WHERE OrderID = " & ID , MyConnection ', ....
'Далее привязка полей формы к полям рекордсета
End Sub