hide - где-то это все подробно описано. Надо не забыть
перекрыть Close что-бы убрать при закрытии MSA из памяти
и формы должны быть всплывающими - тогда они будут
плавать по экрану без MSA (какбы)

www.istra.ru/~aparts

вот это Application.hWndAccessApp передаешь туда

Option Compare Database
Option Explicit

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)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'

Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
'
' On Error Resume Next
' Set loForm = Screen.ActiveForm
' If Err <> 0 Then 'no Activeform
' If nCmdShow = SW_HIDE Then
' MsgBox "Cannot hide Access unless " _
' & "a form is on screen"
' Else
' loX = apiShowWindow(hWndAccessApp, nCmdShow)
' Err.Clear
' End If
' Else
' If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
' MsgBox "Cannot minimize Access with " _
' & (loForm.Caption + " ") _
' & "form on screen"
' ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
' MsgBox "Cannot hide Access with " _
' & (loForm.Caption + " ") _
' & "form on screen"
' Else
' loX = apiShowWindow(hWndAccessApp, nCmdShow)
' End If
' End If
' fSetAccessWindow = (loX <> 0)
End Function

да не блин...в apiShowWindow