dim conn
set conn=server.createobject("adodb.connction")
dim strconn
dim rs
set rs=server.createobject("adodb.recordset")
dim strsql
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb;User ID=admin;Password=;Jet OLEDB:Database Password="
conn.open strconn
'如果是当前库,上面这行可以不要
strsql="select * from table where fieldname ='value'"
rs.open strsql,conn,1,1
'如果是当前库可以改成以下这句
'rs.open strsql,currentproject.connection,1,1
do until rs.eof
response.write(rs(0))
'上面这句打印出所有记录的第一个字段
rs.movenext
loop
RS.CLOSE