Private Sub Form_Load()
    Dim 目录 As Object
    Set 目录 = CreateObject("")
    Adodc1.ConnectionString = strCn
    If id_公司部门名称 = 5 Then
        Command1.Visible = True
    End If

    sql1 = "select 一级目录名称 from 系统一级目录"
    Adodc1.RecordSource = sql1
    Adodc1.Refresh
    For i = 1 To Adodc1.Recordset.RecordCount
        目录 = Trim(Adodc1.Recordset.Fields("一级目录名称"))    不知道如何实现对对象变量的赋值还望指教谢谢
        目录.Item(1).Enabled = False
        Adodc1.Recordset.MoveNext
    Next
End Sub

无人回答？？？

我将menu控件的名字都存入到了sql中，在系统分配权限的时候，读取相应的名称，对目录设置可以访问或者不可以访问，
如果menu控件的名字是 订单录入系统
那么在sql中查询出来也是“订单录入系统”，但是是字符串，如何使这个字符串变成对象名来使用

我就是想问例如“订单管理系统”这个字符串如何转换成变量名。例如用一个menu对象名称为“订单管理系统” 如何是这个字符串可以转换为对象名，并且可以使用

这是我的sql权限图，我要问的不是具体权限怎么去弄，而是问的从数据库中读取的字符串如何转换成对象名称使用!

问题已经解决，但版主始终没有美白我的依稀看
字符串 要转换成 对象名使用
       字符 = Trim(Adodc1.Recordset.Fields("二级目录名称"))
        Set a = Controls(字符)  想问的是这个怎么写
        a.Item(1).Enabled = False
        Adodc1.Recordset.MoveNext


 Dim 字符 As String
    Adodc1.ConnectionString = strCn
    If id_公司部门名称 = 5 Then
        Command1.Visible = True
    End If
    '全部禁止访问目录
    '=================================================
    sql1 = "select 一级目录名称 from 系统一级目录 "
    Adodc1.RecordSource = sql1
    Adodc1.Refresh
    For i = 1 To Adodc1.Recordset.RecordCount
        字符 = Trim(Adodc1.Recordset.Fields("一级目录名称"))
        Set a = Controls(字符)
        a.Item(1).Enabled = False
        Adodc1.Recordset.MoveNext
    Next
    sql1 = "select 二级目录名称 from 系统二级目录"
    Adodc1.RecordSource = sql1
    Adodc1.Refresh
    For i = 1 To Adodc1.Recordset.RecordCount
        字符 = Trim(Adodc1.Recordset.Fields("二级目录名称"))
        Set a = Controls(字符)
        a.Item(1).Enabled = False
        Adodc1.Recordset.MoveNext
    Next
    '========================================

    '=========================================
    '查询职称对于一级目录的访问，放开一级目录的访问权限
    sql1 = "select 一级目录名称 from 系统一级目录,一级目录访问 where 系统一级目录.id_一级目录=一级目录访问.id_一级目录 and id_公司部门名称 ='" & id_公司部门名称 & "'"
    Adodc1.RecordSource = sql1
    Adodc1.Refresh
    For i = 1 To Adodc1.Recordset.RecordCount
        字符 = Trim(Adodc1.Recordset.Fields("一级目录名称"))
        Set a = Controls(字符)
        a.Item(1).Enabled = True
        Adodc1.Recordset.MoveNext
    Next

    '查询职称对于二级目录的访问，放开二级目录的访问权限
    sql1 = "select 二级目录名称 from 系统二级目录,二级目录访问 where 系统二级目录.id_二级目录=二级目录访问.id_二级目录 and id_公司部门职称 ='" & id_公司部门职称 & "'"
    Adodc1.RecordSource = sql1
    Adodc1.Refresh
    For i = 1 To Adodc1.Recordset.RecordCount
        字符 = Trim(Adodc1.Recordset.Fields("二级目录名称"))
        Set a = Controls(字符)
        a.Item(1).Enabled = True
        Adodc1.Recordset.MoveNext
    Next
    '=========================================访问权限结束

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

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

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

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