我写了一个连接数据库的过程openAccessDB()，里面定义了connection和recordset对象，把它放在了"Tools.asp"文件中，我的主程序是"test.asp"，我把"Tools.asp"包含在"test.asp"中，可是用的时候前面定义的两个对象就不能用了。
"Tools.asp"
sub openAccessDB()
dim connStr
dim dataPath
dataPath=server.mappath("data\database.mdb")
connAccessStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataPath
set conn=server.CreateObject("adodb.connection")
conn.connectionstring=connAccessStr
conn.open()
set rs=server.CreateObject("adodb.recordset")
end sub
"test.asp"
<!--#include file="Tools.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>测试</title>
</head>
<body>
<%
call openAccessDB() '调用函数
sql="select * from MessageBoard"
rs.open sql,conn,1,1 '出错
do while not rs.eof
response.Write(rs.fields("MB_CONTENT").value)
rs.movenext
loop
rs.close()
conn.close()
set conn=nothing
%>
</body>
</html>
运行到出错：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
请问这是怎么回事？
