I'm critically in a project and facing a problem

PROBLEM:
I have an MDI form And had 5 menus
Caption Name
Eg Menu1 -mnuMenu1
Menu2 -mnuMenu2

I'm storing the name of menus into a table.On the loading event of the MDIForm i will Collect the the menu Name .with that Menu name collected i want to enable or disable the menu depending on some conditions.But it is not working.

See my code

Public Sub Disabling()
Dim str As Menu
Dim rs As rdoResultset
Set rs = gbon.OpenResultset("Select menuName from FormsControls " & _
"Where Data='0'", rdOpenStatic, rdConcurValues)
While rs.EOF = False
str.Name = rs.rdoColumns(0)
str.Enabled = False
rs.MoveNext
Wend
End Sub

Pls Help me