以前都是把日期转化后排序，有什么方法直接按日期大小排序呢？
    If cn.State = adStateOpen Then cn.Close
    If rs.State = adStateOpen Then rs.Close
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\AAA.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456789;"
    sql = "select 日期 from 记录 between #" & 起始日期 & "# and #" & 结束日期 & "# "
    rs.Open sql, cn, 3, 3
在
这句上：sql = "select 日期 from 记录 between #" & 起始日期 & "# and #" & 结束日期 & "# "
能怎么写才能让
rs里的记录是按时间顺序排列的？

已经解决，
sql = "select 日期 from 记录 between #" & 起始日期 & "# and #" & 结束日期 & "# order by 日期 asc"
能用