为什么我连不上数据库?

ASP ACCESS

字符串 Provider=Microsoft.Jet.OLEBD.4.0;Data Source=E:\flashw\bbs.mdb

数据库没有打开怎么能行,在包含文件里就该写了，用我这个连接程序吧

<%

Dim str,con,rs,sql

str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("DataBase/数据库名.mdb")

set rs = Server.CreateObject("adodb.recordset")

Set con=Server.CreateObject("adodb.connection")

con.open str

%>

以后的程序中，rs,sql等就不用一个个的定义了，也不用一个个打开了，直接使用就是了，多方便