Fejl ved kald til db.

Jeg har dette på min side:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("secure/database.mdb")
Conn.Open DSN
SQL = "Select * FROM admin WHERE ID=" & Session("ID")
Set rs = Conn.Execute(SQL)
Response.Write "Hej " & rs("navn") & "," & "<br>" & ""
Conn.Close
Set Conn = Nothing
%>


Databasen ligger på www.dkgolf.dk/secure, hvad gør jeg forkert ?

Hvis jeg placeret databasen i samme dir virker skidtet.