Sto avendo un problema di ordinamento query, il codice è il seguente e il problema è che vorrei come risultato della query la data più vicina.
codice:
					<%  Dim Visa3
						Set objConn = Server.CreateObject("ADODB.Connection")
						objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mdb-database/db.mdb")
						Set RecSet = Server.CreateObject("ADODB.Recordset")
						Visa3 = "SELECT * FROM comunica where Tipo='eventi' ORDER BY ID DESC"
						RecSet.Open Visa3, objConn, adOpenDynamic, adLockOptimistic
						if RecSet.EOF Then %>
					<h3>Appuntamenti</h3>
					

Non sono presenti date per i prossimi giorni.</p><% else %>
					<%  data = RecSet("Inizio_evento")
						data1 = RecSet("Fine_evento")
						if data >= Date() or data1 >= Date() Then%>
		<div class="textimage">
		[img]images/eventi.jpg[/img]

		<h3><%=RecSet("Titolo")%><% if RecSet("Sottotitolo") <> "" Then %> - <% End if %><%=RecSet("Sottotitolo")%></h3>
		

<%	messaggio = RecSet("Articolo")
				mess = Split(messaggio)
				messaggio = ""
				for i = 0 to Ubound(mess)
				messaggio = messaggio & mess(i) & " "
				if i = 53 then exit for
			next

			Response.Write(messaggio)%> ">Dettagli</p>
		<% 	RecSet.Close
			set RecSet = Nothing %>

Altri appuntamenti</p>
		</div><% End if %><% End if %