Hjälp mig plz!!!!

varför står det så här när jag ska öppna add_medlem.asp

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]Error in row

/jwradhe/add_member.asp, line 68

här e koden oxå för hela sidan =

<!-- #include file="adovbs.inc" -->

<%

'--------------- Kontrollerar så lösenordet är korrekt ------------------

If Request.Form("pw1") <> Request.Form("pw2") Then

Session("meddelande") = "Båda lösenorden måste vara samma!! Försök igen."
Response.Redirect "default.asp"

End If

'------------------------ Slut på kontrollen ------------------------

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/members.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select username From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If RecSet("username") = Request.Form("username") Then

	Session("meddelande") = "Det användarnamnet var redan taget! Försök med något annat"
	RecSet.Close
	Response.Redirect "default.asp"

End If

RecSet.MoveNext

Loop

RecSet.Close

'----------------------------Slut på kontroll------------------------

%>
<%
Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("fnamn") = Request.Form("fnamn")
RecSet("enamn") = Request.Form("enamn")
RecSet("username") = Request.Form("username")
RecSet("losen") = Request.Form("pw1")
RecSet("epost") = Request.Form("epost")
RecSet("icq") = Request.Form("icq")
RecSet("adress") = Request.Form("adress")
RecSet("pnr") = Request.Form("pnr")
RecSet("stad") = Request.Form("stad")
RecSet("kunskap") = Request.Form("kunskap")
RecSet("syfte") = Request.Form("syfte")
RecSet("personligURL") = Request.Form("personligURL")
RecSet("favoURL") = Request.Form("favoURL")
RecSet("bild") = Request.Form("bild")
RecSet("citat") = Request.Form("citat")
RecSet("datum") = Date
RecSet("status") = "offline"

RecSet.Update
RecSet.Close

Connect.Close
Set RecSet = nothing
Set Connect = nothing

Session("meddelande") = "Du har nu blivit inlagd i registret! Testa att logga in."
Response.Redirect "default.asp"

%>