主题：任务栏权限设置

老师，我目前将任务栏的代码改为了这样，如果当前点击的任务栏中的任务名称和在表中遍历到的数据不相等的话，就弹出无权操作的提示，否侧的话打开对应的窗口，我是这样写的代码，但就算点击的当前任务名称和遍历到的数据表中的一样的话，还是会提示无权操作的。请老师帮忙看下代码哪里写的不对？

For Each dra As DataRow In DataTables("用户表").Select("部门= '" & _bm & "' and 岗位名称 ='"& _gwmc & "' ")
    For Each bn As String In dra("任务名").split(",")
        If bn =e.Link.Name Then  
            Select Case e.Link.Name
                Case "切换用户"
                    Forms("登录").Open
                Case "修改密码"
                    Forms("更改用户").Open
            End Select
            Return
        End If
    Next
Next

MessageBox.show("你无权执行此项操作!")

老师，下面这段代码还是有问题，当给管理员所有权限都加上的时候，在操作的时候刚开始加了权限的窗口都能打开，但是第二次打开的时候就提示你无权操作，明明是有权限的，可是却提示无权操作。

For Each dra As DataRow In DataTables("用户表").Select("部门= '" & _bm & "' and 岗位名称 ='"& _gwmc & "' ")
    For Each bn As String In dra("任务名").split(",")
        If bn =e.Link.Name Then  
            Select Case e.Link.Name
                Case "切换用户"
                    Forms("登录").Open
                Case "修改密码"
                    Forms("更改用户").Open
            End Select
            Return
        End If
    Next
Next
MessageBox.show("你无权执行此项操作!")

弹出 _bm 、 _gwmc  等值，看是否满足，代码应该没问题的了

老师，任务栏中和很多个任务，报表类的任务想通过权限表来控制，而像切换用户，修改密码之类的不想通过权限表来控制，因为这些没必要分配权限，这些每个人都应该能操作，这个应该怎么实现。

For Each dra As DataRow In DataTables("用户表").Select("部门= '" & _bm & "' and 岗位名称 ='"& _gwmc & "' ")
    For Each bn As String In dra("任务名").split(",")
        If bn =e.Link.Name Then  
            Select Case e.Link.Name
                Case "报表1"
                    Forms("报表1").Open
                Case "报表2"
                    Forms("报表2").Open
            End Select
            Return
        End If
    Next
Next
MessageBox.show("你无权执行此项操作!")

Select Case e.Link.Name
                Case "切换用户"
                    Forms("切换用户").Open
                Case "修改密码"
                    Forms("修改密码").Open
            End Select

Select Case e.Link.Name
    Case "切换用户"
        Forms("切换用户").Open
    Case "修改密码"
        Forms("修改密码").Open
    Case Else
       
        For Each dra As DataRow In DataTables("用户表").Select("部门= '" & _bm & "' and 岗位名称 ='"& _gwmc & "' ")
            For Each bn As String In dra("任务名").split(",")
                If bn =e.Link.Name Then
                    Select Case e.Link.Name
                        Case "报表1"
                            Forms("报表1").Open
                        Case "报表2"
                            Forms("报表2").Open
                    End Select
                    Return
                End If
            Next
        Next
        MessageBox.show("你无权执行此项操作!")
End Select