Object Requied

Jeg har laget en login side men får bare følgende melding opp når jeg skriver oplysningene in i  feltene:

ADODB.Connection error \'800a0bb9\'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/test/test5.asp, line 28

det virker som om jeg ikke får kontakt med databasen.

koden er:

Dim conntemp__strUserID
conntemp__strUserID = \"x\"
if(Request.Form(\"UserID\") <> \"\") then conntemp__strUserID = Request.Form(\"UserID\")

Dim conntemp__strPassword
conntemp__strPassword = \"1\"
if(Request.Form(\"Password\") <> \"\") then conntemp__strPassword = Request.Form(\"Password\")

%> <%
set conntemp=server.createObject(\"adodb.connection\")

\' DSNless connection to Access Database
DSNtemp=\"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSNtemp=dsntemp & \"DBQ=\" & server.mappath(\"\\test\\_db\\access.mdb\")
conntemp.Open DSNtemp
\' DSNless connection to Access Database


sql = \"SELECT un, pw  FROM users\"
set recordset = conntemp.Execute(sql)



%>
<% If conntemp__strUserID <> \"x\" Then
If Not conntemp.EOF Then
Session(\"svUser\")=conntemp.Fields.Item(\"un\").Value
Session(\"svPass\")=conntemp.Fields.Item(\"pw\").Value
Session(\"AccGrp\")=conntemp.Fields.Item(\"al\").Value
Response.Redirect \"loginok.asp\"
else
Response.Redirect \"loginfailed.asp\"
End If
End If
conntemp.Close
Set conntemp = Nothing

hva skal jeg gjøre