Если создавать/закрывать новый экземпляр MS Access таким Макаром

    Dim App_Public_Modules As Access.Application

    sCmdLine = """" & SysCmd(acSysCmdAccessDir) & "MSAccess.exe"" """ & db_Path & """"
    sCmdLine = sCmdLine & " /wrkgrp """ & DBEngine.SystemDB & """"
    sCmdLine = sCmdLine & " /User user1 /pwd 123"
    
    Shell sCmdLine, vbHide

    Set App_Public_Modules = GetObject(db_Path)

	...
	
    App_Public_Modules.CloseCurrentDatabase
    App_Public_Modules.Quit acQuitSaveNone
    Set App_Public_Modules = Nothing

, то окно MS Access откуда я все вызывал не закрывается. При этом новый созданный процесс MSACCESS исчезает из диспетчера задач (что в свою очередь как бы должно намекать что все прошло без ошибок).

Если новый экземпляр MS Access создавать/закрыть так

    Dim App_Public_Modules As Access.Application
    Set App_Public_Modules = New Access.Application
    App_Public_Modules.OpenCurrentDatabase db_Path, False

...
	
    App_Public_Modules.CloseCurrentDatabase
    App_Public_Modules.Quit acQuitSaveNone
    Set App_Public_Modules = Nothing

то все без проблем закрывается.

В чем может быть причина и как побороть? Мне нужен именно первый вариант так как там можно вводить логин/пароль пользователя и использовать конструкции вида "App_Public_Modules.DoCMD.TransferDatabase".

http://www.sql.ru/forum/1187967/okno-ms-access-ne-zakryvaetsya