Help me

[zhoujian2003]

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

缺少 'End'

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

Microsoft JET Database Engine 错误 '80040e09'

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

/function/addvip.asp，行21
我添加记录为什么会报这个错？
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

[xelibri]

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