Sortering af dato

Har lavet denne kode fra 2 databaser, og resultatet skal sortere efter query2 efter salgsdato. Sælger nr. 3179 har lavet 29 salg.... hvordan sorterer jeg efter salgsdato?

<%
Dim DBconn
Set DBconn = Server.CreateObject("ADODB.Connection")
DBconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Saelger.mdb")

Dim rs, query
Set rs = Server.CreateObject("ADODB.RecordSet")

query = "SELECT SalgID FROM Salg WHERE SalgID.SaelgerID=3179"
rs.Open query, DBconn

count=1

Do While Not rs.EOF

Dim DBconn2
Set DBconn2 = Server.CreateObject("ADODB.Connection")
DBconn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Salg.mdb")

Dim rs2, query2
Set rs2 = Server.CreateObject("ADODB.RecordSet")

query2 = "SELECT * FROM Salg WHERE Salg.SalgID =" & rs("SalgID") & " ORDER BY Salg.Salgsdato"
rs2.Open query2, DBconn2

Response.Write "<b>"
Response.Write count
Response.Write "</b>&nbsp;"
Response.Write rs2("SalgID")
Response.Write "&nbsp;"
Response.Write rs2("Salgsdato")
Response.Write "<br>"

rs.MoveNext
count=count+1
Loop
%>

resultatet:

1 48756 20-12-2020
2 48807 03-02-2021
3 48832 07-02-2021
4 48867 14-02-2021
5 48988 22-02-2021
6 49012 01-03-2021
7 49034 04-03-2021
8 49065 07-03-2021
9 49090 12-03-2021
10 49128 21-03-2021
11 49184 06-04-2021
12 49222 12-04-2021
13 49258 18-04-2021
14 49283 21-04-2021
15 49314 25-04-2021
16 49352 30-04-2021
17 49396 09-05-2021
18 49447 17-05-2021
19 49453 20-05-2021
20 49496 24-05-2021
21 49561 18-07-2021
22 49570 26-07-2021
23 49581 01-08-2021
24 49591 06-08-2021
25 49621 16-08-2021
26 48591 20-11-2020
27 48642 30-11-2020
28 48695 06-12-2020
29 48731 13-12-2020