<%
  dim RsSchema
  Set adoCon = Server.CreateObject("ADODB.Connection")
  strPatchdb = Server.MapPath("db.mdb")
  strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strPatchdb
 adoCon.connectionstring = strCon
 adoCon.Open
  Set RsSchema = adoCon.OpenSchema(adSchemaTables)
  Do Until RsSchema.EOF
     if RsSchema("TABLE_TYPE") = "TABLE" Then
     Response.Write RsSchema("TABLE_NAME") & "<BR>" 
     End if
   RsSchema.MoveNext
  Loop
  
%>

Set ADOXCATALOG = Server.CreateObject("ADOX.Catalog") 
ADOXCATALOG.ActiveConnection = dsn
tablename ="names_list"
for each field in ADOXCATALOG.tables(tablename).columns
response.write field.name&"<br />"
next