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