查看数据库连接方式，查看是否是旧版本的驱动方式或以ODBC数据源来连接数据库
查看数据库连接字符串如果如下:
connstr="driver={Microsaoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
那么就是旧版本的驱动连接方式
可以改成以下代码：
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
如果改了后网站访问正常，就证明是连接方式的问题了。

如果是有dns=***的字符串，那么就是以ODBC数据源来连接数据库。虚拟主机的Access是不能以这种方式来连接的，因为数据源需要在服务器进行配置。要修改成以驱动方式来连接，完整代码如下：
'你的数据库文件路径及文件名
db="../database/mydb.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr