Order by dato -udvidet koncertkalender

Hej jeg har dette script som skal fungere som koncertkalender:

___________________________________

<%

dim i,RS, objRS, sqlstring, dato, by, sted, tid
dim conn, ODBCpath, nydato

dato = TRIM(Request("dato"))

function OpenConn( DBName )
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"
end function

function draw

nydato = RS("dato")
Response.Write "<tr><td align=right width=102><font size=1>" & Day(nydato) & "/" & Month(nydato) & "/" & Year(nydato) & "</font></td>"
Response.Write "<td align=right width=102><font size=1>" & RS("by") & "</font></td>"
Response.Write "<td align=right width=103><font size=1>" & RS("sted") & "</font></td>"
Response.Write "<td align=right width=103><font size=1>" & RS("tid") & "</font></td></tr>"

End function


OpenConn("../helene.mdb")

IF (dato = "") THEN
%>

<div align="left">
  <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">

<%

    Set RS = Server.CreateObject("ADODB.Recordset")
    Set RS.ActiveConnection = Conn

    Sqlstring = "SELECT * FROM koncert ORDER BY dato DESC"
    RS.Open sqlString

    While NOT RS.EOF
        draw
        RS.MoveNext
    Wend
    Response.Write "</table></div>"


ELSE

Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.CursorLocation = adUseServer
    objRS.CursorType = adOpenKeyset
    objRS.LockType = adLockOptimistic
    objRS.Open "koncert", Conn, , adCMdTable
   
    objRS.AddNew
    objRS("dato") = Date
    objRS("by") = by
    objRS("sted") = sted
    objRS("tid") = tid

    objRS.Update
    objRS.Close

Response.Redirect "koncerter.asp"

END IF

%>

___________________________________

Det sætter ordenen med den sidste dato først.

Jeg vil gerne have den til at sætte den først kommende dato (fra dags dato) øverst, og de datoer som er overskredet skal (fra dags dato) <strike>'es igennem

Nogen der kan hjælpe mig?