kan inte lägga till i databas

Så här ser sidans kod ut:

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

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("dbfiler/db2.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

%>

<%
Addera = "SELECT * FROM personer"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

	RecSet("p_name") = Request.Form("Name")
	RecSet("p_born") = Request.Form("Born")
	RecSet("p_city") = Request.Form("City")
	RecSet("p_icq") = Request.Form("ICQ")
	RecSet("p_msn") = Request.Form("MSN")
	RecSet("p_aim") = Request.Form("AIM")
	RecSet("p_email") = Request.Form("Email")
	RecSet("p_homepage") = Request.Form("Homepage")
	RecSet("p_notis") = Request.Form("Notis")

RecSet.Update
RecSet.Close

Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "default.asp"
%>

Felmeddelandet jag får ser ut så här:
Feltyp:
Microsoft JET Database Engine (0x80040E09)
Det går inte att uppdatera. Databasen eller objektet är skrivskyddat.
/projekt/hi/action_add.asp, line 16

Koden på rad 16 är denna:
RecSet.AddNew

Hur göra? :o