Option Explicit

Const DatabaseName = "phones.mdb"

Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")
Catalog.Create _
	"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DatabaseName

Dim Table
Set Table = CreateObject("ADOX.Table")

Table.Name = "Phone Book"

Table.Columns.Append "Name"
Table.Columns.Append "Phone"

Catalog.Tables.Append Table

Set Catalog = Nothing