呃,倒序排列。
Dim drs As List(Of String) = DataTables("表A").Select("", "日期 Desc")
msgbox(drs(drs.Count-1)(日期))
msgbox(drs(drs.Count-2)(日期))
msgbox(drs(drs.Count-3)(日期))