[Resolvido]Abrir BD com fundo transparete através de outro

Boa noite pessoal,
Estava tentando fazer um aplicativo abrir o outro quando me deparei com algo que eu não entendi.
Usei meu próprio exemplo postado em:
Exemplo usado

O que fiz foi colocar o mesmo BD com outro nome (Reciclagemexemplo - abre.accdb) e fazer com que, ao fechar o Reciclagemexemplo.accdb pudesse abre o Reciclagemexemplo - abre.accdb com o código abaixo:
Private Sub Form_Unload(Cancel As Integer)
   Cancel = True
 
     On Error GoTo Err_BtnExcluir_Click


Dim msg, Estilo, título, resposta, minhasequência
   msg = "Deseja fazer o back up agora? "
       Estilo = vbYesNo + vbQuestion + vbDefaultButton2 'Define os botões
       título = "Reciclagem" 'Define o título
           resposta = MsgBox(msg, Estilo, título)
       If resposta = vbYes Then 'O usuário escolheu sim.
       Dim strCminho As String
      strCaminho = "C:\Users\marcelo\Documents\Teste fundo access\ReciclagemExemplo - abre.accdb"
       Application.FollowHyperlink strCaminho
       DoCmd.Quit
       
       minhasequência = "Sim" 'Executa alguma ação.
                 
   Else 'O usuário escolheu não.
       If resposta = vbNo Then
       DoCmd.Quit acQuitSaveAll
       minhasequência = "Não" 'Executa alguma ação
       DoCmd.Close
   End If
       End If
Exit_BtnExcluir_Click:
   Exit Sub

Err_BtnExcluir_Click:
   'MsgBox Err.Description
   Resume Exit_BtnExcluir_Click
End Sub

Ocorre que abre porém a função de esconder o fundo access deixa de funcionar a contento. Individualmente o arquivo se abre com o fundo escondido mas usando o código acima fica um fundo esquisito com a barra de títudo aparecendo em um quadrado azul.
Então pergunto:
Esta forma de abrir outro BD interfere em outras funções ? (Esconder o fundo, retirar os botões minimizar, fechar e restaurar).
Alguém fez este teste?
Grato

Olá pessoal, boa noite.

Consegui resolver criando um módulo:

Option Compare Database

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Function ExecutarAplicativo(strCaminhoArq As String, Optional lngJanela As Long = 1)
ShellExecute hWndAccessApp, vbNullString, strCaminhoArq, vbNullString, vbNullString, lngJanela
End Function

E no evento "Ao Descarregar"
   Cancel = True
 
     On Error GoTo Err_BtnExcluir_Click


Dim msg, Estilo, título, resposta, minhasequência
   msg = "Deseja fazer o back up agora? "
       Estilo = vbYesNo + vbQuestion + vbDefaultButton2 'Define os botões
       título = "Reciclagem" 'Define o título
           resposta = MsgBox(msg, Estilo, título)
       If resposta = vbYes Then 'O usuário escolheu sim.
        Call ExecutarAplicativo("C:\Reciclagem\BackupReciclagem.accdb")  'Aqui o BD que será aberto.
        DoCmd.Quit acQuitSaveAll
       
       minhasequência = "Sim" 'Executa alguma ação.
                 
   Else 'O usuário escolheu não.
       If resposta = vbNo Then
       DoCmd.Quit acQuitSaveAll
       minhasequência = "Não" 'Executa alguma ação
       DoCmd.Close
   End If
       End If
Exit_BtnExcluir_Click:
   Exit Sub

Err_BtnExcluir_Click:
    Resume Exit_BtnExcluir_Click

Muito obrigado e desculpem não ter tentado mais vezes antes de postar.
De toda forma serve para quem passar pela mesma situação