菜单问题,急问!

能否再描述清楚一些？从数据库中读到信息存放在变量m中，m中存放的是什么？
~~~~~~~~~~~~~~~
如果m中存放的是用于标识菜单a3的属性的，则通过if语句就可以判断使得a3的enabled属性为false

菜单的 名字是作为一个数据库中的字段值存放的.假设 我取到某字段的值,再将它放在一个变量m中,
如何将其对应的菜单项变成无效.例如
如果一个菜单名为menu1
将他设无效是menu1.enabled=false
但是menu1这个名字是在一个变量m中
(不可以用if或case语句,因为要匹配的数量太大,而且太频繁了)
请问应该怎么做

菜单结构
TestMenu(mnuTest) About(mnuAbout)
Test1(mnuTest1)

Dim strMenu As String
Dim obj As Object

strMenu = "mnuTest1"
For Each obj In Me.Controls
If VBA.TypeName(obj) = "Menu" Then
If obj.Name = strMenu Then
obj.Enabled = False
End If
End If
Debug.Print VBA.TypeName(obj)
Next

用遍历是不行的,我的意思有没有类似宏的东西可以解决这个问题