用SQL语句设计的加载树，希望“年月”按倒序排列，代码应该如何修改，请各位老师指教，谢谢！！

窗口的AfterLod事件代码设为：
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C  \'外部数据源
cmd.CommandText = "SELECT DISTINCT 年月,单位 From {数据汇总}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","年月", "单位")
trv.Nodes.Insert("加载所有数据",0)

目录树的NodeMouseDoubleClick事件设为：
Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim Value() As String
    Value = e.Node.FullPath.Split("\\")
    Select Case e.Node.Level
        Case 0
            Filter ="[年月] = \'" & Value(0) & "\'"
        Case 1
            Filter ="[年月] = \'" & Value(0) & "\' And [单位] = \'" & Value(1) & "\'"
    End Select
End If
DataTables("数据汇总").LoadFilter = Filter
DataTables("数据汇总").Load()

cmd.CommandText = "SELECT DISTINCT 年月,单位 From {数据汇总}"

改为：

cmd.CommandText = "SELECT DISTINCT 年月,单位 From {数据汇总} Order by 年月"

换个方法，新的BuildTree可以指定排序参数：

http://www.foxtable.com/help/topics/0893.htm

谢谢狐爸老师的指教，在“数据汇总”表全部加载的前提下，用最后三条代码，可以实现加载树节点倒序；如何用ExecuteReader方法直接从后台提取完整的年月和单位数据，还请狐爸老师指教，谢谢！！

\'Dim cmd As New SQLCommand
\'Dim dt As DataTable
\'cmd.C  \'外部数据源
\'cmd.CommandText = "SELECT DISTINCT 年月,单位 From {数据汇总}"
\'dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("数据汇总", "年月|单位","","年月 DESC,单位")
trv.Nodes.Insert("加载所有数据",0)