<%
dim adoConn
dim ConString
dim adoRst
set adoConn = Server.CreateObject("AdoDB.Connection")
ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = False;" _
& "Data Source = D:\mdb\NorthWind.mdb;Jet OlEDB:DataBase Password=123456"
adoConn.Open ConString
dim sql
Sql = "Select Max(OrderID) , Min(OrderID) From Orders"
set adoRst = adoConn.Execute(sql)
Response.Write (adoRst(0))
Response.Write (" ")
ResPonse.Write (adoRst(1))
adoRst.close
adoconn.close
%>