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("java2sTable").Columns.Append _ "MyNewField", adWChar, 15 Set cat = Nothing End Sub