set conn=Server.CreateObject("ADODB.Connection")
DbPath=Server.MapPath("./data/phone.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.MDB)};
DBQ=" &
DbPath
sql="select * from telephone"
set rs=Server.CreateObject ("ADODB.RecordSet")
rs.Open sql,conn,1,1