Fijate con ADOX, esta es una forma otra es con sentencias SQL DML (DROP COLUMN) pero creo que es más complejo. Esta es una forma:
Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
Set objCatalog.ActiveConnection=TuObjetoConnection
Set objTable = objCatalog.Tables.Item("MiTabla")
objTable.Columns.Delete "MiColumna"