Introduction - If you have any usage issues, please Google them yourself
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0 data source=" & server.MapPath("MyFile.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select* From MyTable", cn
Response.Write rs.Fields("MyField")
rs.Close
cn.Close
Set cn = Nothing