我添加记录为什么会报这个错？

[zhoujian2003]

我添加记录为什么会报这个错？
dim vipNun,amount,manager
vipNum=request("vipNum")
amount=request("amount")
manager=Session("managerName")

dim rsAddVipOrder
set rsAddVipOrder=CreateObject("ADODB.RecordSet")
rsAddVipOrder.open "tb_vipOrder",connStr,1,3
rsAddVipOrder.addNew
rsAddVipOrder("vipID")=vipNum
rsAddVipOrder("amount")=CCur(amount)
rsAddVipOrder("inputer")=manager
rsAddVipOrder.Update
rsAddVipOrder.close
set rsAddVipOrder=Nothing
----------------------------------------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e09'

不能更新。数据库或对象为只读。

[xelibri]

rsAddVipOrder.open "tb_vipOrder",connStr,1,3
改为
rsAddVipOrder.open "select top 1 * from tb_vipOrder",connStr,1,3
试试看

[ahuiok]

缺少end 就检查上下文是不是前面多了if , sub ,function等。

[xelibri]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242
这部分提示跟他的程序没关系的

[jnzsk]

看看你的数据库文件的权限

[yhd0411]

access文件权限没有打开

[李尸尸]

将属性里面有只读有话勾去掉，再在安全项里，将权限都打勾，你不是说了吗？不能更新，数据库或对象为只读。

[zhoujian2003]

睡一觉清醒了，看见这么多朋友帮助谢谢了。问题解决了