asp+access数据库连接问题

怎么不能连接上，还是怎么回事？
你可以到网上搜索asp连接access数据库的语句呀？

<%
'------------------------
'后台数据库处理文件
'版权所有 三六行科技科技
'程序编写:夕阳天使
'www.gx361.com'------------------------

'==================数据库路径
Dim DatabasePath,DatabasePathBak
DatabasePath="Database/#Gunius.mdb"

'==================数据库连接
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DatabasePath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
end if

'==================关闭数据库
sub CloseConn()
conn.close
set conn=nothing
end sub
%>