<%
dim db,conn,myconn
db="***.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
%>

还想怎样？

数据库连接就是这样。
要安全把数据库改名：#***.mdb，***.asp
名字尽量复杂。

<%
dim db,conn,myconn
db="***.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
myconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open MyConn
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"'
Response.End
End If
%>
加上红色部分，万一连接出错了不会在错误信息中暴露数据库地址相关的信息。

谢谢版主。

我也十分感谢啊！！！