Sub Add_NewFields()
Dim cat As New ADOX.Catalog
Dim myTable As New ADOX.Table
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
cat.Tables("rntsoftTable").Columns.Append _
"MyNewField", adWChar, 15
Set cat = Nothing
End Sub