直接用adodb来查就可以
<%
Dim con,rs,DbPath
DbPath="[Access数据库路径]"
ConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DbPath)&";Persist Security Info=False"
set con=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
con.connectionstring=ConStr
rs.open "select * from 查询个人所得税",con,1,1
Do Until rs.EOF
Response.Write rs("个人所得税")&"<br/>"
rs.MoveNext
Loop
rs.close
con.close
set rs=nothing
set con=nothing
%>