Dato fra database, hvor dato = date .. . .. .

I databasen ser datoen sådan her ud:
12-04-2003
Men når jeg så skriver det ud med koden nedenfor ser det sådan her ud.
04-12-2003
Altså 04-Dec-2003 :(


Koden ser sådan her ud

<%
session.lcid = 1030

Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("mindatabase.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
    strSQL = "Select * FROM Events WHERE [date]=#"&date()&"#;"
    set rs = Conn.Execute(strSQL)

    if not (rs.BOF and rs.EOF) then
      tema = rs("Description")
    else
      tema = ""
    end if
%>
<%
        response.write "<Font Face=verdana>" & tema &""
%>

Jeg skal gerne have den til, at finde ud af hvilke dato det er i dag, og så hente alt ud fra databasen, der har med den dato at gøre.