求助，菜单栏显示不出。

chd9994

登录窗体上写有以下代码：
Private Declare Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  Private Sub Form_Load()
ShowWindow Me.Application.hWndAccessApp, 0
End Sub

Private Sub Command4_Click()
If IsNull(Me.Combo0) Then
MsgBox "     请选择登录的科室     "
ElseIf IsNull(Me.Text2) Then
   MsgBox "请输入密码"
Else
If Me.Text2 <> Me.Combo0 Then
MsgBox "      密  码  错  误      " & vbCrLf & _
       "你没有获得授权使用本系统。" & vbCrLf & _
       "   详情请与管理员联系！   "
Else: DoCmd.Close
      DoCmd.OpenForm "start"
        
End If
End If
End Sub

Private Sub Command7_Click()
    DoCmd.Quit
End Sub

Private Sub Form_Unload(Cancel As Integer)

ShowWindow Me.Application.hWndAccessApp, 1
End Sub
执行后定义的菜单栏显示不出来，应如何解决。