dato sortering

Dato sortering
Jeg har en tabel hvor der bl.a. er et datofelt (Kort datoformat)
Men når jeg henter mine data med nedenstående kode bliver de ikke sorteret  ?
Hvad går der galt
Koden er:
<%


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"privat_db.mdb\")
SQLstmt =\"SELECT * from kalender WHERE userID=\"&session(\"userID\")&\" ORDER BY fornavn DESC,event_dato DESC\"

\'+ \" \"+ \" and dato < \" NewTime \";\"

response.write SQLstm

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>


<font face=\"Arial\" size=\"2\" color=\"#000000\">Dato </font></b>
<BR>
    <%


  DO WHILE NOT rs.EOF
  event_dato = rs(\"event_dato\")
    event_beskrivelse = rs(\"event_beskrivelse\")
\'event_noter = rs(\"event_noter\")
eventId = rs(\"eventId\")
  fornavn = rs(\"fornavn\")
\'  dato = rs(\"dato\")

slet = \"SLET ? \"
    %>

      <%=event_dato%>
  <BR>
<%

  rs.MoveNext

  LOOP
  RS.Close

%>