新增一条记录 提交后会出现下面的提示(asp+access)

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'opennews'

/hg/admin_news.asp，行491

请问是如何形成这个问题的呢

代码是这样
if request.Form("action")="newnew" then
opennews
sql="select * from news"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim poster,newfrom,title,keyword,content,catid,newsisbest,newistop,newpic,isimg,newsauthor,newsahome
catid=cint(request.form("cat_id"))
title=trim(replace(request.form("news_title"),"'",""))
。。。。。。