Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim pr As ADOX.Property

   ' Create the database
   Set cat = New ADOX.Catalog
   cat.Create "Provider= " & _
      "Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=e:\data\newdb.mdb;"
    
   ' Create the new table
   Set tbl = New ADOX.Table
    
   ' Assign the new table to the
   ' previously created catalog
   ' so we can use its dynamic props
   Set tbl.ParentCatalog = cat
    
   For Each pr In tbl.Properties
      Debug.Print pr.Name
   Next