Cant connect to Database!

Hello everyone, Im just new to ASP and am trying to update my database with this script:

<%
Dim Connect, OnMenu
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Menu"
Set OnMenu = Server.CreateObject("ADODB.Recordset")
OnMenu.Open "SELECT * FROM Menu ORDER BY Date", Connect, adOpenStatic, adLockOptimistic
%>

<%
onMenu.AddNew
onMenu("Date") = "1/7/2005"
onMenu("MainCourse") = "More Tacos"
onMenu("Fruit") = "Tomato"
onMenu("Vegetable") = "Lettuce"
onMenu("Dessert") = "Shake"
onMenu.Update
%>

and I keep getting this error:

[color=#000000][font=verdana]Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/Databasework/access.asp, line 29[/font][/color][color=#000000][font=verdana]

What is this**?

Thanks
Fidelity88
**[/font][/color]