[Resolvido]abrir um banco de dados com um botão em formulário de de outro Banco de Dados access 2010

 boa noite  amigos do Fórum ,mais uma vez preciso de ajuda ,tenho quatro Banco de Dados   -  CadastrosInglês ,CadastrosEspanhol,CadastrosAlemão,CadastrosPortuguês.
Estou precisando que de um form.de um banco Vazio somente com um form em branco ,com um botão eu abra estes bancos que estão no mesmo Pc . seria possível o que eu estou tentando . não consegui resolver !

Olá;

Existem varias possibilidades;

Código:

Private Sub SeuBotão_Click()
Dim DBPath As String
    Dim appAccess As Object
    Set appAccess = CreateObject("Access.Application")
    DBPath = "c:\BancoExterno.accdb"
    appAccess.OpenCurrentDatabase DBPath
    appAccess.DoCmd.OpenForm "SeuFormPrincipal"
    appAccess.Visible = True
    'para encerrar o primeiro banco
    'DoCmd.Quit
End Sub


Código:

'Constantes têm de ficar fora do código do botão
'devem ficar no inicio do VBA, logo a seguir ao
'Option Compare Database
 
Const strCaminho = "C:\Pasta\"
Const strBancoExterno = "BancoExterno.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

amigo João Paulo mais uma vez muito obrigado por ter me resolvido este Bd ficou funcionando 100% um abraço .

Obrigado pelo retorno o forum agradece.

amigo João Paulo só não estou conseguindo colocar dois botões sendo um para ingl~e e outo para Espanhol etç..
Const strCaminho = "C:\Users\Nogaro\Desktop\PastaBd\"
Const strBancoExterno = "CadastrosInglês.accdb" como coloco o espanhol

Const strBancoExterno2 = "CadastrosEspanhol.accdb"

Pode adicionar varias constantes,

coloquei assim
Const strCaminho = "C:\Users\Nogaro\Desktop\PastaBd\"
Const strBancoExterno = "CadastrosInglês.accdb"

Const strBancoExterno2 = "CadastrosEspanhol.accdb"
mas esta abrindo o mesmo Bd CadastrosInglês  nos dois botões

resolvido João Paulo coloquei no botão assim strComandoAbre = strComandoAccess & " " & Chr(34) & strCaminho & strBancoExterno2 & Chr(34)

É isso ae.

Obrigado pelo retorno o forum agradece.