主题：在LoadUserSetting中怎么不能用全局变量和内表数据

在LoadUserSetting代码中写了三段代码

If RibbonTabs.Contains("录入修改") Then
    If User.Name = "使用者" And Vars("使用者身份") = "教师"  Then   '如果登录的是【教师】
       RibbonTabs("录入修改").Visible = False
    Else
        RibbonTabs("录入修改").Visible = True
    End If
End If

Dim dr1 As DataRow = DataTables("登录信息").DataRows(0)
If RibbonTabs.Contains("查询打印") Then
    If User.Name = "使用者" And dr1("使用者身份") = "组长" Then   '如果登录的是【教师】
       RibbonTabs("查询打印").Visible = False
    Else
        RibbonTabs("查询打印").Visible = True
    End If
End If

If RibbonTabs.Contains("信息统计") Then
    If User.Name = "使用者"  Then   '如果登录的是【教师】
       RibbonTabs("信息统计").Visible = False
    Else
        RibbonTabs("信息统计").Visible = True
    End If
End If

只有第三代码生效，感觉都是红色字部分出问题了，一个是全局变量，一个是内表数据，因为考虑切换用户不适合我，我就在同一个使用者里增加了多种身份，请问有什么办法解决？