DataGrid中如何知道用鼠标选择的记录，看似简单的问题

Question

我的DataGrid有单击列排序功能，如下：
Public Sub Sort(ByVal strField As String)
Dim strSort As StringstrSort = strField & " DESC"
If rs.Sort = strSort Then
    rs.Sort = strField & " ASC"
Else
    rs.Sort = strField & " DESC"End If
End Sub
但是，当排序后，如何取得用鼠标选择的记录？？？
排序前的代码如下：
   For Each varBmk In .SelBooks
        rs.Book = varBmk
        .
        .
        Update rs("CGBH")
   Next varBmk

Answer 1

sort排序并没有使实际数据排序
所以在排序前记录的标签值，排序后还是没变

Answer 2

有两种方法：
一.改变datagrid 的标签，使其重新排序
二.先Order by ,再Open 了请问第一种方法可行吗？