Processing an Access database with ASP

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
Existing problems:
You need the server to install access, and you have to start access every time, which is definitely not going to work.
How can I enumerate the table in an MDB completely through ADO?