Visual Basic - Menues desde BD

Hola a todos.
Soy nuevo en VB y aun hay cosas que no las capto.
Ejemplo: en una tabla en la base da datos tengo todos los nombres de los menues que estan en mi aplicacion.
Con un select, segun el usuario, selecciono todos los menues con que cuenta el mismo.
Hasta alli todo bien, el tema esta aqui. paso el codigo.

menus = Split(adoPrimaryRS("menu"), ",") ' la matriz
Set adoSecondaryRs = New Recordset
For Each modi In menus
adoSecondaryRs.Open "select * from menues where id_menu = " & modi & "", db, adOpenStatic, adLockOptimistic
elmenu1 = adoSecondaryRs("mnu")
Next
ok, el for each va entregando el codigo numerico de cada uno de los menues disponibles y este tiene el nombre del menu relacionado, es decir, si en el for each entre el elmenu1 sera = "mnuexit", 2="mnunew" etc.
Hasta alli genial pero ahora quiero hacer...
elmenu1.enabled = true pero me da el clasico error en tiempo de ejecucion 91 , variable del tipo object o la variable del bloque... etc.
Es evidente que me falta algun dim o un set.
Si me pueden ayudar... gracias, sino, tambien gracias.