标题：一个类似权限的工作

各位老师：

A表是数据，有两列 用户名、部门

B表是分类库，有登记用户用户名与所在部门信息

我如何做到用户登录后，通过user.name只加载用户所属部门的数据？

以下我做的代码

’项目属性LoadUserSetting事件

if  User.Group="普通员工" then
    DataTables("A").LoadFilter ="[用户名]='" & User.Name &"'"
    DataTables("A").Load()

这样只能控制用户看到自己用户名的数据，那么如果用户组假如是‘管理者’我想控制管理者只看到自己用户名对应的部门数据，这个代码该怎么写，请各位老师指点，谢谢...

if  User.Group="普通员工" then
    DataTables("A").LoadFilter ="[用户名]='" & User.Name &"'"
    DataTables("A").Load()

ElseUser.Group="管理者" then 

    dim dr As Datarow

    dr = DataTables("b").Find("用户名= ' & User.Name & "'")

    DataTables("A").LoadFilter ="[部门]='" & dr("部门") &"'"
    DataTables("A").Load()

End IF