Operation must use an updateable query

When I run this using VWD it works fine but when I ran it as localhost I got the error shown below. Any idea why? My code is listed under error. Thanks

Operation must use an updateable query
Description:An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details:System.Data.OleDb.OleDbException: Operation must use an updateable query.

Source Error:

Line 29: End WithLine 30: MyConn.Open()Line 31: Cmd.ExecuteNonQuery()Line 32: Line 33: 'Get the new WebID number

Source File:C:\Accmon\register\register.aspx.vb Line:31

Stack Trace:

[OleDbException (0x80004005): Operation must use an updateable query.] System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) +267 System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult) +192 System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult) +48 System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) +106 System.Data.OleDb.OleDbCommand.ExecuteNonQuery() +108 register_Default.SubmitBtn_Click(Object sender, EventArgs e) in C:\Accmon\register\register.aspx.vb:31 System.Web.UI.WebControls.Button.OnClick(EventArgs e) +105 System.Web.UI.WebControls.Button.RaisePostBackEvent(String eventArgument) +107 System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +7 System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +11 System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33 System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +5102

Code:

Partial

Class register_Default
Inherits System.Web.UI.PageProtectedSub SubmitBtn_Click(ByVal senderAsObject,ByVal eAs System.EventArgs)
If (Page.IsValid)Then
Dim webnewAsBoolean =True
Dim WebIDAsInteger
Dim strConnAsString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"c:\accmon\database\accmon.mdb" &";"'Load Website table
Dim MySQLAsString ="Insert into websites (agencyID, url, service, addressIP, webnew)" & _
"Values (@dotnet.itags.org.DOTAgency, @dotnet.itags.org.URL, @dotnet.itags.org.ServiceType, @dotnet.itags.org.IPAddress, webnew)"
Dim MyConnAsNew OleDbConnection(strConn)
Dim CmdAsNew OleDbCommand(MySQL, MyConn)
With Cmd.Parameters
.Add(New OleDbParameter("@dotnet.itags.org.DOTAgency", DOTAgency.SelectedItem.Value))
.Add(New OleDbParameter("@dotnet.itags.org.URL", URL.Text))
.Add(New OleDbParameter("@dotnet.itags.org.ServiceType", ServiceType.SelectedItem.Value))
.Add(New OleDbParameter("@dotnet.itags.org.IPAddress", IPAddress.Text))
.Add(New OleDbParameter("@dotnet.itags.org.webnew", webnew))
EndWith

MyConn.Open()
Cmd.ExecuteNonQuery()

'Get the new WebID number
MySQL =""
MySQL ="SELECT @dotnet.itags.org.@dotnet.itags.org.Identity FROM websites"
Cmd.Parameters.Clear()
Cmd.CommandText = MySQL
WebID =CType(cmd.ExecuteScalar(),Integer)'Load Report table
MySQL ="Insert into webcontact (webID, primarycontact, primaryemail, privacycontact, privacyemail," & _
"privacyurl, privacyxml) Values (webID, @dotnet.itags.org.PMName, @dotnet.itags.org.PMEmail, @dotnet.itags.org.PName, @dotnet.itags.org.PEmail, @dotnet.itags.org.PURL, @dotnet.itags.org.XML)"
Cmd.Parameters.Clear()
Cmd.CommandText = MySQL
With Cmd.Parameters
.Add(New OleDbParameter("@dotnet.itags.org.webID", WebID))
.Add(New OleDbParameter("@dotnet.itags.org.PMName", PMName.Text))
.Add(New OleDbParameter("@dotnet.itags.org.PMEmail", PMEmail.Text))
.Add(New OleDbParameter("@dotnet.itags.org.PName", PName.Text))
.Add(New OleDbParameter("@dotnet.itags.org.PEmail", PEmail.Text))
.Add(New OleDbParameter("@dotnet.itags.org.PURL", PURL.Text))
.Add(New OleDbParameter("@dotnet.itags.org.XML", XML.SelectedItem.Text))
EndWith
Cmd.ExecuteNonQuery()'Send Success message
Label1.Text = DOTAgency.SelectedItem.Text
Label2.Text = ServiceType.SelectedItem.Text
Label5.Text = IPAddress.Text
Label7.Text = URL.Text
Label8.Text = PMName.Text
Label9.Text = PMEmail.Text
Label16.Text = PName.Text
Label17.Text = PEmail.Text
Label19.Text = PURL.Text
Label20.Text = XML.SelectedItem.Text

Registration.SetActiveView(Result)'Close Update
MyConn.Close()

EndIf
EndSub

Start with:

http://www.aspfaq.com/show.asp?id=2009

Jeff

Ok, I read the information and some other information, checked the MDAC, I have XP w/SP2 , and checked the permissions and it still giving me the same error. I can read the data but I can't write the data to the MS-Access database.

Any ideas?

cheers;