[Resolvido]Apresentar somente o formulário ao carregar o BD

Copiei um código de um banco, onde este ao ser aberto mostra apenas o formulário, sumindo por completo com a estrutura do Access, só que no banco que criei ao invés de manter o formulário visível faz com que tudo desapareça. O que faço para corrigir este erro?

No módulo:

Option Compare Database
Option Explicit

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Dim dwReturn As Long

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

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long



Public Function fAccessWindow(Optional Procedure As String, _
Optional SwitchStatus As Boolean, _
Optional StatusCheck As Boolean) As Boolean



If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
ElseIf Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
ElseIf Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If

If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If

If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
ElseIf IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If

End Function

No formulário em ao carregar:

Private Sub Form_Load()
fAccessWindow "Hide", False, False
End Sub

*
Ola seja bem vindo ao fórum.

Com esse código, tantos os formularios como os relatorios têm de estar com Popup=sim e Janela Restrita=sim

O fórum é perfeito e me sinto lisonjeado de fazer parte dele daqui para frente.
Muito rápida a solução... ...problema resolvido!!!
Muito obrigado JPaulo.

Obrigado pelo retorno o forum agradece.

Faltou o resolvido.