Here is some code that adds a table in ADO and then modifies a column name.
Function catalogInfo()
'-- 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
tb.Name = "Test"
tb.Columns.Append "col1", adInteger
tb.Columns.Append "col2", adVarWChar, 50
Debug.Print "table = "; cg.Tables("Test"

.Name
cg.Tables.Append tb
'-rename a column
Set tb = cg("test"

Set cl = tb("col2"

cl.Name = "col2aa"
End Function
A couple of links
ADO also has the Schema way of accessing information on objects must like using the Schema in SQL Server. An example of finding tables using Schema.
Function CheckForTables()
Dim cn As New Connection
Dim rs As Recordset, connString As String
connString = "provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\bigtuna\Databases\MotorRepairDB.mdb;" & _
"Persist Security Info=False"
cn.ConnectionString = connString
cn.Open connString
Set rs = cn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "table"

)
While Not rs.EOF
Debug.Print rs!table_name
rs.MoveNext
Wend
rs.Close
Set cn = Nothing
End Function
Find tables in MDB(or SQL Server) without using Schema
Dim cg As New ADOX.Catalog
Dim tb As New ADOX.Table
Set cg.ActiveConnection = CurrentProject.Connection
For Each tb In cg.Tables
Debug.Print "table name = "; "-------"; tb.Name; "--------"; tb.Type
Next