为什么出现“不能再打开表”的错误信息

[EastLin]

我做了一个网站，到晚上访问的人一多时经常出现以下错误信息：

Microsoft JET Database Engine 错误 '80004005'
不能再打开其它表了。

/STYZ/Include/OpenReadSJK.asp，行 27

OpenReadSJK.asp文件是下面的函数，我用以下方法操作Access数据库

Function ConnMDB(VarSQL,SJKName)
Set objOpen=Server.CreateObject("ADODB.Connection")
objOpen.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(SJKName)
objOpen.open

Set ConnMDB=Server.CreateObject("ADODB.Recordset")
ConnMDB.Open VarSQL,objOpen,1,3,1
End Function


VarSQL="SELECT * FROM 表名 WHERE ID=" & ID
Set rs=ConnMDB(VarSQL,"数据库名")


不知是否是我的代码不优化，请各位高手指点一二。谢谢！


我的网站是http://www.dlstw.cn 感兴趣的朋友可以到晚上人多的时候去访问一下看看出现的错误信息。