fel i rad?

får detta felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers fel '80004005'

[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad

/nyavl/login/skicka.asp, rad 69

på koden:

<%
	'--------------------------------------------------
	' Öppna databasen och hämta användarens namn
	'--------------------------------------------------
	password    = ""
	databas     = "../db/databasen.mdb"
	DBPath      = Server.Mappath(mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"), "\")) & databas)
	Set MinCon  = Server.CreateObject("ADODB.Connection")
	MinCon.Open  "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath & ";uid=;pwd=" & password & ";"
	Set databas = Server.CreateObject("ADODB.Recordset")

	SQL = "SELECT * From info WHERE ID=" & Request.Form("SendToUser") & ""
	databas.Open SQL, MinCon, 1, 2

		User = databas("anv")

	'--------------------------------------------------
	' Stäng databasen
	'--------------------------------------------------
	databas.Close

		arrDatumDelar = split (date(), "-")
		kortdatum = cint(arrDatumDelar(2)) & "/" & cint (arrDatumDelar(1)) & " år " & arrDatumDelar(0)

	'--------------------------------------------------
	' Öppna databasen för att lägga till det nya messet
	'--------------------------------------------------
	password    = ""
	databas     = "../db/databsen.mdb"
	DBPath      = Server.Mappath(mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"), "\")) & databas)
	Set MinCon  = Server.CreateObject("ADODB.Connection")
	MinCon.Open  "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath & ";uid=;pwd=" & password & ";"
	Set databas = Server.CreateObject("ADODB.Recordset")

	SQL = "SELECT * From message"
	databas.Open SQL, MinCon, 1, 2

	'--------------------------------------------------
	' Lägg till det nya messet
	'--------------------------------------------------
	databas.AddNew
	databas("msgFROM") = Request.Form("SentFromUser")
	databas("msgTO")   = User
	databas("msgTEXT") = Request.Form("mess")
	if Request.Form("rubb") = "" then
	databas("msgRUBB") = "Inget ämne!"
	else
	databas("msgRUBB") = Request.Form("rubb")
        end if
	databas("datum")   =  kortdatum
	databas("last")    = 0
	databas("msgTO1")  = Request.Form("id")
	databas("msgFROM1")  = Session("id")
	databas.Update

	'--------------------------------------------------
	' Skicka en till börja igen
	'--------------------------------------------------
	Response.Redirect "default.asp?link=mess"
	%>

Någon som vet vad som är fel?