<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("024511.mdb")
set conn=server.createobject("adodb.connection")
conn.open strconn

Dim rs,strsql,strResult
strResult=""
set rs=server.createoject("adodb.recordset")
strsql="select 字段 from 表"
rs.open strsql,conn,0,1
do while not rs.eof
strResult = strResult & rs("字段") & "<br>"
rs.movenext
loop
Response.Write(strResult)
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

这样写试试set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(数据库名.mdb)
如果你的数据库在站的根下就这么写
如果不在就应该在库名前写上文件不过为了方便建议反数据库放到站的根下肯定不会错