ASP 获得Access表名

<%
dim  adoconn
set  adoconn = server.createobject( " adodb.connection " )
connString = " Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath( " knddb06.mdb " )
adoconn.open connString
set  adoxCatalogx = server.createobject( " ADOX.Catalog " )

dim  adoxCatalogx
set  adoxCatalogx.ActiveConnection = adoconn

dim  adoTable
set  adoTable = server.createobject( " ADOX.Table " )
for   each  adoTable in adoxCatalogx.Tables
  response.write adoTable.Name + " <br> "
next
%>