Se me minimiza la base de datos access

Tengo un pequeño problema y llevo días con ello, tengo una base de datos de clientes en el cual la tengo con acceso usuario y contraseña, el problema que el menú principal no tengo como no emergente ya que se me minimiza cuando introduzco el user y password, ya que quiero ocultar también la ventana de access quitando los botones de cerrar y minimizar, por que ya mi base de datos tiene dicho botón el cual crea registro de hora de entrada y de salida,

Pego aquí el código de mi form, del acceso

Option Compare Database
Option Explicit

Private Sub Comando1_Click()
Dim OnOfRibbon As Integer
Dim OnOfShift As Integer

If IsNull(Me.txtUsuario) Then
MsgBox "Por favor, escriba su Usuario", vbInformation, "Usuario requerido"
Me.txtUsuario.SetFocus
ElseIf IsNull(Me.txtPass) Then
MsgBox "Por favor, ingrese su Contraseña", vbInformation, "Contraseña requerida"
Me.txtPass.SetFocus
Else
If (IsNull(DLookup("[Usuario]", "Usuarios", "[Usuario] ='" & Me.txtUsuario.Value & _
"' And Pass = '" & Me.txtPass.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
OnOfShift = DLookup("Activar_Shift", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")
OnOfRibbon = DLookup("Mostrar_Cinta_Opciones", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")
UserLevel = DLookup("Admin", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")
'Validación para Desactivar/Activar tecla Shift
If OnOfShift = -1 Then
TeclaShift "AllowBypassKey", dbBoolean, True
Else
TeclaShift "AllowBypassKey", dbBoolean, False
End If
'Validación para Mostrar/Ocultar la Cinta de Opciones
If OnOfRibbon = -1 Then
DoCmd.ShowToolbar "Ribbon", acToolbarYes
Else
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End If
'Validación para identificar al Administrador
If UserLevel = -1 Then
LogedUser = Me.txtUsuario.Value
DoCmd.Close
DoCmd.OpenForm "MENU_PRINCIPAL"
Else
LogedUser = Me.txtUsuario.Value
DoCmd.Close
DoCmd.OpenForm "MENU_PRINCIPAL"
End If
End If
End If

End Sub

Private Sub Form_Load()

TeclaShift "AllowBypassKey", dbBoolean, False 'Desactiva la tecla Shift
DoCmd. ShowToolbar "Ribbon", acToolbarNo 'Oculta la Cinta de Opciones
Me.txtUsuario.SetFocus

End Sub

Tengo tambien el codigo para esconder la ventana de access pero no consigo que funcione,

Option Compare Database

Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Private Declare Function GetMenuItemInfo Lib "user32" Alias _
"GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As _
Long, lpMenuItemInfo As MENUITEMINFO) As Long

Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&

Public Property Get Enabled() As Boolean
Dim hWnd As Long
Dim hMenu As Long
Dim result As Long
Dim MI As MENUITEMINFO
MI.cbSize = Len(MI)
MI.dwTypeData = String(80, 0)
MI.cch = Len(MI.dwTypeData)
MI.fMask = MF_GRAYED
MI.wID = SC_CLOSE
hWnd = Application.hWndAccessApp
hMenu = GetSystemMenu(hWnd, 0)
result = GetMenuItemInfo(hMenu, MI.wID, 0, MI)
Enabled = (MI.fState And MF_GRAYED) = 0
End Property

Public Property Let Enabled(boolClose As Boolean)
Dim hWnd As Long
Dim wFlags As Long
Dim hMenu As Long
Dim result As Long
hWnd = Application.hWndAccessApp
hMenu = GetSystemMenu(hWnd, 0)
If Not boolClose Then
wFlags = MF_BYCOMMAND Or MF_GRAYED
Else
wFlags = MF_BYCOMMAND And Not MF_GRAYED
End If
result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Property

A ver si alguien puede echarme un cable.