隐藏ACCESS主体界面问题

问题如上，本来我有一个小系统，是可以隐藏ACCESS的主体的，单单显示窗口。

于是我把它移植到另外的一个ACCESS系统，但是发现移植失败了，我也按照要求设置了。

但是在另外一个系统一旦打开，瞬间ACCESS就隐藏了，跟未打开一样，想重新在打开也打开不了（必须在后台任务管理器中结束ACCESS进程才行）

比如：将所有窗体都设为 【弹出模式】，但是也没有，怎么回事呢？

代码如下：

【登录窗体中】：

Private Sub Form_Load() '加载事件
 fSetAccessWindow (SW_HIDE)
 End Sub

【模块中】：

Option Compare Database

  Global Const SW_HIDE = 0
 Global Const SW_SHOWNORMAL = 1
 Global Const SW_SHOWMINIMIZED = 2
 Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
 Alias "ShowWindow" (ByVal hwnd As Long, _
 ByVal nCmdShow As Long) As Long
 
Function fSetAccessWindow(nCmdShow As Long)
 Dim loX As Long
 Dim loForm As Form
 On Error Resume Next
 loX = apiShowWindow(hWndAccessApp, nCmdShow)
 Err.Clear
 fSetAccessWindow = (loX <> 0)
 End Function
 

直接上图：成功的系统
未隐藏：

隐藏后