高手看看asp连接mdb出错？？？

myoffice.mdb放在opendb.asp同一文件夹内，代码如下：
VBScript code:
<%
session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.MapPath("myoffice.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>

提示
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0xce8 Thread 0x70c DBC 0x13fe23c Jet'。
/office/asp/opendb.asp, 第 9 行
高手指点，谢谢！！

---

这个问题解决了，但是又出现新错误：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'opendb'
/index.asp, 第 9 行

index.asp代码如下：
VBScript code:
<!--#include file="office/asp/sqlstr.asp"-->
<!--#include file="office/asp/opendb.asp"-->
<%
'登录
username=request("username")
password=request("password")
if username<>"" and passwor