用asp處理access數據庫

dim appAccess, db, atable

set appaccess=createobject("Access.application")
set db=appAccess.dbengine.opendatabase(server.mappath("northwind.mdb"))

for each atable in db.tabledefs
    if instr(atable.name,"Sys")=0 then
        response.write atable.name + "<br>"
    end if
next

db.close
appAccess.quit
set db=nothing
set appAccess=nothing
現存問題：
需要服務器安裝access，而且每次都要啟動Access，這樣肯定不行。
怎麼能完全通過ado列舉mdb中的table？