你用这种方式解决问题了？我一般是这样解决的
funtion canOption(catalog as string)
'指定目录对应的控件可以执行操作
dim a as control
for each a in me.controls
  if a.name=catalog  then
    a.enabled=true    '该功能按钮有效
    exit function
  endif
next
end function

function noOptionAll
'所有操作按钮不能操作（假设所有按钮名称前四个字符为menu）
dim a as control
for each a in me.controls
  if left(a.name,4)="menu" then a.enabled=false
next
end function

我不知道你这样通不通过数据库，因为涉及到日后要让操作人员自己定义每个部门对于每个一级目录，每个职称对于二级目录的访问。所以我想到了这种方法

关键在于你的达到什么目的。而不在实现方法。
我说的是另一种的实现方法。
而你的实现方法 从代码上来讲是无法直接实现的。

字符串不能直接生成对象，有名字，只能遍类所有的已知的对象，再去激活该对象。
而不能因为有字符串而创建对象。当然，WINDOWS 自带的对象除外，那种对象就是用字符串来创建的。

问题我已经解决了，字符串可以成为对象名
字符 = Trim(Adodc1.Recordset.Fields("二级目录名称"))
        Set a = Controls(字符)
a.item(1).enabled=true
代码调试通过了。。我本来就是想问的这个问题，如果将字符串变为对象名

这是一个好方法。
只要把有操作功能的按钮或菜单名称全部存储到数据库，即可用该方法对按钮或菜单使能或失效。11楼是通过扫描所有控件名称，判断是否和数据库存储的按钮名称是否相等来完成的，没有这种方法效率高，也不直观。

呵呵这个问题想了很久，就是被字符串转换成对象名给卡住了，现在解决了

学习了，一直只会controls.add动态加载控件，还不知道可以这样。为什么不直接controls(控件名).enabled呢？不需要中间对象变量的。

不知道这样可不可以，没尝试过，

编写c|s 或者b|s的时候最好什么东西都能让用户自己定义，那才比较好