具体提示什么问题?连不上看看你的连接字符串错了没有,或者数据库的路径出错吗?
首先确定你数据库的版本,比如是.mdb的还是
Dim Conn,ConnStr
Set Conn=Server.CreateObject("Adodb.Connection")
Const SiteDataPath = "#数据库名.accdb" ‘这里的是accdb.如果是mdb你知道该怎么做
'mdb的数据库
'ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(SiteDataPath)
'accdb的数据库
ConnStr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&Server.MapPath(SiteDataPath)