Как программно запретить закрытие приложения Access для Windows 7 64 - VB

Формулировка задачи:

Здравствуйте. Понадобилось запретить закрытие БД Аксесс на "Х" - закрытие не формы, а аксесса в целом(или Runtime). Сделал так:
В отдельном модуле:

Option Compare Database
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

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&
Public Function EnabCloseBut(boolClose As Boolean) As Boolean
Dim hWnd As Long
Dim wFlags As Long
Dim hMenu As Long

' получаем hWnd окна Access
hWnd = Application.hWndAccessApp ' Me.hWnd
hMenu = GetSystemMenu(hWnd, 0)
If Not boolClose Then
   ' делаем кнопку серой, недоступной
   wFlags = MF_BYCOMMAND Or MF_GRAYED
Else
   ' возвращаем все как было
   wFlags = MF_BYCOMMAND And Not MF_GRAYED
End If
EnabCloseBut = EnableMenuItem(hMenu, SC_CLOSE, wFlags)

Потом в макросе autoexec вызываю функцию

EnabCloseBut(False)

Все работает как надо, НО если винда 32-битная. У юзеров с виндой 7 64 бит Runtime стал вылетать с ошибкой. Естественно user32 на этих машинах нет. Как сделать, чтоб работало на 64-х битной винде? помогите пожалуйста. Проверку разрядности винды я сделал...

Решение задачи: «Как программно запретить закрытие приложения Access для Windows 7 64»

textual
                            Листинг программы 
                        
                            Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub