不用ADOX也可以?。?
    <%
    Dim cn ,strCnn,rstSchema
    set cn = server.createobject("ADODB.Connection")
    set strCnn = server.createobject("ADODB.Recordset")
    set rstSchema = server.createobject("ADODB.Recordset")
    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;"
    strCnn = strCnn & "Data Source=F:\asptest\tree.MDB;"
    strCnn = strCnn & "Persist Security Info=False"
    cn.Open strCnn
    set rstSchema=cn.openSchema(20)
    rstSchema.movefirst
    Do Until rstSchema.EOF
    if rstSchema("TABLE_TYPE")="TABLE" then
    response.write rstSchema("TABLE_NAME") & "
    "
    end if
    rstSchema.movenext
    Loop
    cn.close
    ‘’set rstSchema = nothing
    ‘’set cn = nothing
    %>
    SQL -->系統(tǒng)表sysobjects
    access---》用ADOX的 例子：
    <%
    Dim cn ,strCnn
    set cn = server.createobject("ADODB.Connection")
    set strCnn = server.createobject("ADODB.Recordset")
    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\asptest\tree.MDB;Persist Security Info=False"
    cn.Open strCnn
    Set tb = Server.CreateObject("ADOX.Table")
    Set cat = Server.CreateObject("ADOX.Catalog")
    Set cat.ActiveConnection = cn
    For Each a In cat.Tables
    Response.Write a.Name & "
    "
    Next
    cn.close
    %>