Private Sub Grid1_CellDblClick(ByVal nRow As Long, ByVal nCol As Long)
  ' Daten in Textfelder anzeigen
  Text1.Text = Grid1.Text(nRow, 1)
  Text2.Text = Grid1.Text(nRow, 2)
  ' usw.
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de