Connection string virker ikke!!

Jeg er ved at lave en login i ASP, men der er et eller andet i vejen med min connection string jeg har følgende connection string:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

command  = LCase( Request.Form("command") )
User = Request.Form("user")
Pass = Request.Form("pass")

IF command = "login" THEN
   
    SQLSentence = "SELECT * FROM Login WHERE User = '" & User & "' AND Pass = '" & Pass & "';"
    set LoginListe = Conn.Execute( SQLSentence )
   
    IF NOT LoginListe.EOF THEN
        Session("LoggedIn")    = "true"
        Session("User")        = LoginListe("user")
        Session("Pass")        = LoginListe("pass")
        Session("Modify")    = LCase( LoginListe("Modifier") )
        Session.Timeout        = 15

    END IF
   
ELSE
    Session("User")        = ""
    Session("Pass")        = ""
    Session("LoggedIn")    = "false"
    Session("Modify")    = "false"

    END IF

Response.Redirect( "login.asp" )
%>

Men få blot følgende fejl meddelse:
Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object

/web/db/access.asp, line 4