VB/ASP and databases

Guys I have been trying to get this to work for the past 30 hours, it's probably something simple but please have a look because I cannot fot the life of me get this to work.


set conn = Server.CreateObject("ADODB.Connection")
'name of database
conn.Open "databasename"
'accounts is the name of the table
sql = "SELECT * FROM accounts"
Set rsadd = Server.CreateObject("ADODB.RecordSet")
'adlock is correct
rsadd.Open sql, conn, adLockOptimistic, adCmdTable
'set the recordset space to write a new record
rsadd.Addnew
'assign the text boxes to Recordset fields
rsadd("userid") = form.request("Account")
rsadd("Password") = form.Request("Password")
rsadd("Fname") = Request("firstname")
rsadd("Lname") = request("lastname")
rsadd("Departid") = request("Department")

'write back to database
rsadd.Update
'move the record pointer to the first record
rsadd.MoveFirst
'close the recordset
rsadd.close
set rsadd = nothing
conn.close
set conn = nothing
Response.write "New account added"




I keep getting the Error:
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

on line :
rsadd.Open sql, conn, adLockOptimistic, adCmdTable


Please, one of you must have some Idea what is going on here. I have tried every different syntax I can think of but it just will not work.

 

First off, try googling for the error message. There look to be quite a few good suggestions already.

http://www.google.com/search?q=Curr...s=org.mozilla:en-US:official&client=firefox-a

 

I did, multible times, thats why I turned to a fourm. I eventually did figure it out at 2 oclock this morning, there was an error in the permissions of my database.