Private Function print(pVal)
   Response.Write(pVal)
End Function

SET objCon = Server.CreateObject("ADODB.Connection")
strConStr = "Provider=Microsoft.OLEDB.Jet.4.0;DataSource=" & Server.MapPath("db/mydb.mdb")
objCon.OPEN strConStr
SET objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM mytbl"
objRs.OPEN strSQL,objCon

IF NOT(objRs.EOF) THEN
   WHILE(NOT(objRs.EOF))
      strFld1 = objRs.Fields("field1")
      strFld2 = objRs.Fields("field2")
      print("Field 1 -> " & strFld1)
      print("Field 2 -> " & strFld2)
      objRs.MoveNext
   WEND
END IF

objRs.CLOSE
objCon.CLOSE
SET objRs = NOTHING
SET objCon = NOTHING