天哪！为什么那么简单的题目竟然没有人知道？

Question

太简单！鼠标单击datagrid控件时，记录集的焦点就位于指定的那条纪录，直接取出记录集的当前这条纪录，给点分了：）

Answer 1

在DataGird的RowColChange事件中写
    Dim cCol As Column
    For Each cCol In DataGrid1.Columns
        '取每列的文本
        Debug.Print cCol.Text
    Next cCol

Answer 2

    Dim cCol As Column,sRowText as String
    For Each cCol In DataGrid1.Columns
        '取每列的文本
        Debug.Print cCol.Text
        sRowText =sRowText & cCol.Caption & cCol.Text & " "
    Next cCol
    Msgbox sRowText

Answer 3

同意wanwenguo
private sub dbgrid1_cllick()
    msgbox dbgrid1.datasource.recordset("字段名1")
    '....
end sub