Открытие другой БД в новом окне (Access.Application) и передача управления туда

По материалам: https://www.cyberforum.ru/ms-access/thread3161687.html#post17265332

Sub testAccessAppForm001()
' Открытие другой БД в новом окне и передача управления туда
Dim objAccess As Access.Application
Dim strPath As String, strFilter As String
    
    strPath = "d:\Temp\Database_v02.accdb"
    strFilter = "КЛИЕНТ = ""Q!-Q!"""

    Set objAccess = CreateObject("Access.Application")
    With objAccess
        .OpenCurrentDatabase strPath
        .Visible = True
        .RunCommand acCmdAppMaximize ' В полный экран (опционально)
        .UserControl = True          ' Это важно! - передача управления
    ' 01 Открываем форму и сразу применяем фильтр
        .DoCmd.OpenForm "Form2", , , strFilter
        
    ' 02 Или так:
    '    .DoCmd.OpenForm "Form2"
    '    With objAccess.Forms("Form2")
    '        .Filter = strFilter
    '        .FilterOn = (Len(strFilter) > 0)
    '        ... ещё что то там с формой ...
    '    End With
    End With
    Set objAccess = Nothing
    
End Sub