Example using ADOX.
'-- set reference to ADOX library
'- Microsoft ADO Ext. 2.6 for DDL and Security
'-- Microsoft ActiveX data objects 2.6 library also needed for ADO
Dim cg As New ADOX.Catalog
Dim tb As New ADOX.Table
Dim cn As adodb.Connection
Dim cl As ADOX.Column
Set cg.ActiveConnection = CurrentProject.Connection
'- create a test table.
tb.Name = "Test"
tb.Columns.Append "col1", adInteger
tb.Columns.Append "col2aa", adVarWChar, 50
Debug.Print "table = "; cg.Tables("Test").Name
cg.Tables.Append tb
'' modify the test table.
'-rename a column
Set tb = cg("test")
Set cl = tb("col2aa")
Debug.Print cl
'- modify a property of the column.
cl.Properties("Jet OLEDB:Allow Zero Length") = True
cl.Name = "col2bb"
Debug.Print cl