ADODB.Recordset (0x800A0E79)对象打开时，不允许操作。哪里出错了呢？

'关键词文章调用
Function key(name,ts,ynpage,datetype)
Dim key1
Set key1 = oConn.execute ("select top "&ts&" * from news where news_key='"&name&"'")
Response.Write "<table class=""tableborder1"" width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""0"">"&VbStr
key1.PageSize = ts
key1.CursorLocation = 3
key1.open key1,oConn,1,1
call page1()

if key1.bof and key1.eof then
Response.Write "<tr><td>暂无内容</td></tr>"
else

for i=1 to key1.PageSize
if key1.eof then exit for
response.write("<tr><td class=""tddotted"" height=""30"" align=""left"" valign=""middle"">·<a target=_blank href=""News_show.asp?Newsid="&key1("News_ID")&""" title=""文章标题："&key1("News_title")&""">"&key1("news_title")&"</a></td>")
IF datetype <> 0 then
Response.Write "<td class=""tddotted"" width=""18%"" height=""30""><font color=#cccccc>"&Format_Time(key1("News_Date"),datetype)&"</font></td>"
end if
Response.Write "</tr>"
key1.movenext
next
key1.close
end if
Response.Write "</table>"
if ynpage=1 then Call Page()
End function

楼上说的对，你看看是不是key1 和oConn用完后没即时用.close关闭，关闭后最好再用set 变量=nothing清空一下

你执行的时候把打开的ACCESS数据库关闭即可

请咨询专业人士