strsql="DBQ="+Server.MapPath("*.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.Connection")
conn.open strsql
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Source="select * from table where ...."
rs.open rs.source,conn,1,1