主题：让用户处理不同的列无效

在项目的AfterOpenProject事件中设置代码：

Select Case User.Name
    Case "叶垚真","徐闻聪"
        Tables("销售定单主表").Cols.Remove("工厂销售总金额")
        Tables("销售定单主表").Cols.Remove("已付工厂款")
End Select

但执行无效，主窗口中仍然可见一下两列，请问原因