Vis data efter aktuel dato

Hej eksperster

Jeg har en acces database med en masse informationer om film. Hver film har en dato(premiere) tilknyttet. Hvad gør jeg hvis jeg vil have en side til at vise alt det der er INDEN den aktuelle dato og EFTER den aktuelle dato. Datoen står under kolonnen "Premiere" i min tabel.

koden jeg bruger nu ser sådan ud, men har ikke fået det med dato kodet:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/kommende-film_db.mdb")
Conn.Open DSN

strSQL = "Select * From kommendefilm Order by Premiere ASC"
Set rs = Conn.Execute(strSQL)

Do
  ' Filmens titel
  strNavn = rs("Titel") & " " & rs("Premiere")

  strID=rs("Id")
  If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/moviepic/"&strID&".jpg")) Then
      strPic="<img alt=""Filmbillede"" src=""/upload/moviepic/"&strID&".jpg"" width=""135"" height=""199""> "
  Else
      strPic="<img alt=""Intet filmbillede"" src=""/upload/moviepic/nopic.jpg"" width=""135"" height=""199""> "
  End If

Response.Write "<tr valign=""top""><td><a href=""film-x.asp?id="&strID&""">"&strPic&"</a></td><td><a href=""film-x.asp?id="&strID&""">"&strNavn&"</a><br><font size=""2"">"
BESK = rs("beskrivelse")
If Len(BESK ) > 180 Then
  Response.Write Left(BESK ,180) & "... <a href=""film-x.asp?id="&strID&"""><u>Læs mere</u></a>"
Else
  Response.Write BESK
End If
Response.Write "</font></td></tr>"

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>