Sub ChangeColumn() Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\mydb.mdb;" Set tbl = cat.Tables("Newtable") tbl.Columns("Column2").Name = "Column2X" tbl.Columns.Delete "Column3" End Sub