你这样写试试看:
<%
Option Explicit
Dim dbconn
Dim rslist
Dim query

set dbconn = Server.CreateObject("ADODB.Connection")

dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".\tushu.mdb")  

query = "SELECT * FROM tablename"   这里查询语句
set rslist = Server.CreateObject("ADODB.Recordset") 这里得到查询结果
rslist.open query,dbconn,3  这里执行查询语句
%>

<%
dim connstr
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("tushu.mdb")
set bb = Server.CreateObject("ADODB.Connection")
bb.open connstr
%>

我搞定了  dim connstr，bb   就把第一句改了  声明了一下bb就OK了