Ciao a tutti.. chi mi puo aiutare a risolvere questo problema?

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/registrazione/Aggutente.asp, line 30



Questo è il codice che fra l'altro in locale su pws funziona

<%
Dim DBName, objConn, objRS, strSQL
Dim NewName, NewPass
NewName = Request.Form("Username")
NewPass = Request.Form("Password")
NewAzienda = Request.Form("azienda")
NewNome = Request.Form("nome")
NewCognome = Request.Form("cognome")
NewEmail = Request.Form("email")
DBName = server.mappath("users.mdb")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DBQ=" & DBName & ";Driver={Microsoft Access Driver (*.mdb)};"
objConn.Open

Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM UserInformation Where Username='" & NewName & "'"
set objRS=Server.Createobject("adodb.recordset")
objRS.open strSQL, objConn


If Len(NewName) = 0 or Len(NewPass) = 0 then
Response.Write "You did not enter username and password <BR>"
Response.Write "Please use the backbutton, and correct it"
Else

If objRS.BOF = True OR objRS.EOF Then
strSQL = "INSERT INTO UserInformation (Username, Password, azienda, Cognome, Nome, Email, Booleano ) VALUES ('" & NewName & "', '" & NewPass & "', '" & NewAzienda & "', '" & NewCognome & "', '" & NewNome & "', '" & NewEmail & "', '" & 0 & "')"
Set objRS=Server.Createobject("adodb.recordset")
--RIGA 30--objRS.open strSQL, objConn ----

Session("Username") = NewName


Response.Redirect "RegEff.asp"

Else

Response.Write "Il nome inserito è già in uso<BR>"
Response.Write "Per favore usare il tasto indietro, ed inserire un nome differente."

objRS.close
set objRS= nothing
objConn.close
set objConn= nothing
End If
End If
%>