我测试正常。你直接测试是否有问题?你是不是重复删除了?删除了多次?
Dim Builder As New ADOXBuilderBuilder.Open() '打开ADOXBuilderWith Builder.Tables("表A") .DeleteColumn("第一列")End WithBuilder.Close() '关闭ADOXBuilder