dim objConn, objRs
dim strConn, strSQL
dim strDbPath
strDbPath = "c:\windows\system32\test\g.mdb"
strConn= "Provider=Microsoft.Jet.OleDb.4.0;data surce=" & strDbPath
strSQL = "Select * From MyTable"
set objConn = Server.CreateObject("ADODB.Connection")
set objRs = Server.CreateObject("ADODB.RecordSet")
objConn.Open strConn
Set objRs=objConn.Execute(strSQL)
if not objRs.eof then