Application.CommandBars("Menu Bar").Enabled = True
DoCmd.ShowToolbar "Menu Bar", acToolbarYes
Dim i As Integer
For i = 1 To Application.CommandBars("Menu Bar").Controls.Count
Application.CommandBars("Menu Bar").Controls(i).Enabled = True
Application.CommandBars("Menu Bar").Controls(i).Visible = True
Next i