[Resolvido]Abrir outra BD com comando botão.

Bom dia,

Incluí no clik de um botão código copiado de um post do mestre JPaulo (obrigado) que faz o que se lhe pede, abre a BD que quero mas também dá um erro cujo printscreen anexo para que façam o favor de analisar. Outra bizarrice (para mim claro) é que só abre a BD se o caminho for C:\Base Dados.accdb. Usando o caminho C:\Users\Antonio Tavares\Documents\GÁS\Base Dados.accdb retorna erro dizendo, qualquer coisa como "objeto não encontrado C:\Users\Antonio.mdb."
Como podem verificar uso o Access 2007.

Peço então a vossa preciosa ajuda para estes entraves.

Teste assim;

Const strCaminho = "C:\Users\Antonio Tavares\Documents\GÁS\"
Const strBancoExterno = "Base Dados.accdb"


Private Sub SeuBotao_Click()
 Dim X As Integer
 Dim strComandoAbre As String
 Dim strComandoAccess As String
    
    strComandoAccess = SysCmd(acSysCmdAccessDir) & "MSAccess.exe"
    strComandoAbre = strComandoAccess & " " & Chr(34) & strCaminho & strBancoExterno & Chr(34)
    X = Shell(strComandoAbre, 3)
    'DoCmd.Quit
End Sub

Não pesco nada de código mas vou tentando aprender tb com estes exemplos dos mestres.

Mais uma vez obrigado...está resolvido.

Resolvido...

Obrigado pelo retorno o forum agradece.