SQL Sætning i ASP

Hej
Jeg har nogle data i access jeg skal trække ud fra en kalender og vise. Jeg skal vise de 7 kommende arrangementer.

Hvordan skal jeg skrive min SQL? Hvordan laver jeg det så de 7 kommende arrangementer beregnes udfra dagens dato?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database/database.mdb")
strSQL = "select TOP 7 from kalender order by datovis"
set rs = Conn.execute(strSQL)