Något jätte löjligt säkert

JAg lovar att det är något litet skit fel.

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad 
/sku/www/msk/lagg_till.asp, line 50

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=E:\Hemsidor\SKU\www\msk\sku.mdb"%>
<link rel="stylesheet" href="../main_css.css" type="text/css">
</head>
<% Set RecSet = Server.CreateObject("ADODB.Recordset")
	vilka = "SELECT * FROM person"
	RecSet.Open vilka, Connect, adOpenStatic, adLockOptimistic
	
	RecSet.AddNew
	RecSet("fornamn") = Request.Form("fornamn")
	RecSet("efternamn") = Request.Form("efternamn")
	If NOT Request.Form("ar")="" then RecSet("ar") = Request.Form("ar")
	If NOT Request.Form("manad")="" then RecSet("manad") = Request.Form("manad")
	If NOT Request.Form("dag")="" then RecSet("dag") = Request.Form("dag")
	RecSet("lokalav") = Request.Form("lokalav")
	RecSet("hemsida") = Request.Form("hemsida")
	RecSet("mail") = Request.Form("mail")
	RecSet("pic") = Request.Form("bild")
	RecSet("nu") = Request.Form("nu")
	RecSet("framtid") = Request.Form("framtid")
	If NOT Request.Form("icq")="" Then RecSet("icq") = Request.Form("icq")
	If NOT Request.Form("tele")="" Then RecSet("tele") = Request.Form("tele")
	If NOT Request.Form("mobil")="" Then RecSet("mobil") = Request.Form("mobil")
	RecSet("gata") = Request.Form("gata")
	If NOT Request.Form("postnummer")="" Then RecSet("postnummer") = Request.Form("postnummer")
	RecSet("ort") = Request.Form("ort")
	If NOT Request.Form("paslm")="" Then RecSet("psalm") = Request.Form("psalm")
	RecSet("bibel") = Request.Form("bibel")
	RecSet("uppgift") = Request.Form("uppgift")
	RecSet("om") = Request.Form("om")
	RecSet("ovrigt") = Request.Form("ovrigt")
	If NOT Request.Form("paslm")=false Then RecSet("ageprivat") = Request.Form("ageprivat")
	If NOT Request.Form("mailprivat")=false Then RecSet("mailprivat") = true
	If NOT Request.Form("adressprivat")=false Then RecSet("adressprivat") = true
	If NOT Request.Form("teleprivat")=false Then RecSet("teleprivat") = true
	If NOT Request.Form("info")=false Then RecSet("info") = true
	RecSet("pass") = Request.Form("pass")
	If NOT Request.Form("land")="" Then RecSet("langd") = Request.Form("langd")
	RecSet("ogon") = Request.Form("ogon")
	RecSet("har") = Request.Form("har")
	RecSet("tyckerom") = Request.Form("tyckerom")
	RecSet("tyckerinte") = Request.Form("tyckerinte")
	RecSet("person") = Request.Form("person")
	
	[b]RecSet.Update[/b]
	RecSet.Close
	Connect.Close
	Set Connect = Nothing
	%>