如何根据数据表内容设置菜单项的Eenable或Visible

Question

菜单设置表（因登录后，每个操作员权限不同）：菜单名称   Enable  
Menu1      True
Menu2      True
Menu3      False
....要求循环取出所有记录，然后执行：菜单名称.Eenable=表中属性 (比如第一记录:Menu1.Enable=True...)

Answer 1

问题是菜单名是记录的内容。
Dim rst As New ADODB.Recordset
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;jet oledb:database password=12348888;Data Source=" & App.Path & "\data0\SET.mdb"
Sql = "SELECT * FROM 菜单设置表"
rst.Open Sql, cnstr, 3, 2
Do While Not rs.EOF
menu_name = rst("菜单名称")
menu_enble=rst("Enable")'现在如何？
----------------------------！！！
“menu_name的值”.Enabled=“menu_enble的值”
----------------------------！！！
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
----------------
你不是已经这样做了，哪里有问题呢？？？

Answer 2

menu_name是个变量，内容为菜单名，如何让menu_name的内容的Visible=false?
menu_name & ".Visible"=false 是不行的