RISOLTO !!!
Questo è il codice:

oggi = Date()


dal = Cstr(oggi - 1) ' 1 giorno prima della data odierna


al = Cstr(oggi + 7) ' 7 giorni dopo della data odierna


url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/miodatabase.mdb")


Set Conn = Server.CreateObject("ADODB.Connection")


conn.Open url_DB


strOrderBy = "Data"


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


sql = "SELECT * FROM Partite WHERE Data BETWEEN #" + dal + "#" + " AND " + "#" + al + "#" + " ORDER BY " + strOrderBy + ";"


Grazie 123delphi321 per la tua disponibilità !