Sub Delete_Field() Dim cat As New ADOX.Catalog Set cat = New ADOX.Catalog cat.ActiveConnection = CurrentProject.Connection cat.Tables("java2sTable").Columns.Delete "Type" Set cat = Nothing End Sub