主题：求助，发了几次没发成功

Dim vr As DataRow = DataTables("用户表").SQLFind("用户名 ='" & _user & "'")
Dim us As String = vr("用户名")
Dim gp As String =vr("用户组")
Dim zw As String = vr("职位")
Dim gs As String =vr("分公司")
If gp  = "开发者"
    Return True
Else
    Dim dt As DataTable = DataTables("授权表")
    Dim dr As DataRow =dt.Find("模块名称 = '系统设置' And 对象窗口  Is Null")
    If dr Is Nothing
        'MessageBox.Show("很抱歉,你无此权限!","提示!",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        Return False
    ElseIf dr IsNot Nothing Then
        If dr.IsNull("被授权人") = False Then
            Dim nms() As String = dr("被授权人").Split("》")
            Dim flag As Boolean = False
            For Each nm As String In nms
                If nm = zw OrElse nm = us Then '如果授权用户包括登录用户所属的分组或其用户名
                    flag = True
                    Exit For
                End If
            Next
            If flag = True Then
                Return True
            Else
                MessageBox.Show("很抱歉,你无此权限!","提示!",MessageBoxButtons.OK,MessageBoxIcon.Warning)
                Return False
            End If
           
        End If
    End If
End If
Return False