DataGrid控件怎么实现这个功能？

[lovessll]

我用MSHFlexGrid显示数据库里的记录，然后点击MSHFlexGrid中的某一行的时候，就把该行的记录显示在文本框中。
代码如下
Private Sub MSHFlexGrid1_Click()
Dim i As Integer
For i = 0 To 8
Text1(i).Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i)
Next
End Sub

想问下大家，用DataGrid控件如何实现这个功能？

[帝企鹅已被占用]

DataGrid没TextMatrix。
如果rs没断电，看看能不能从rs里查。

[孤独剑_LPZ]

For i = 0 To n
DataGrid1.Row = i
Text1(i).Text = DataGrid1.Columns(i).Value '循环得到各列值
Next i