主题：[求助]代码如何修改请指教?

以下代码执行时，秘书长可以进入，而中心委员会 不能进入，代码如何修改请指教！

If User.IsRole("秘书长") OrElse User.IsRole("中心委员会") Then
    MainTable = Tables("aaa")
    Tables("aaa").Filter=""
    DataTables("aaa").AllowEdit=True

If MessageBox.Show("是否删除之前的通知内容?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim dt As DataTable = DataTables("aaa")
dt.DataRows.Clear
End If

Else
    MessageBox.Show("你无权发布通知!")
End If

？！！！