Problemas ao abrir outro programa feito no access

Olá pessoal bom dia!

estou tentando abrir outro programa através de um formulário e gostaria da ajuda de vocês porque não está funcionando

Dim RetVal
RetVal = Shell("C:\Users\ndidini\Desktop\Financeiro.accdb", 1)
End Sub

estou utilizando este código, más me retorna o erro "Argumento ou Chamada de procedimento inválida, alguem poderia me dar uma luz do que estou fazendo errado?

Desde já agradeço a ajuda de todos!

Pessoal achei este comando e funcionou perfeitamente!!

Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "c:\caminho\nome do banco de dados a ser aberto.mdb"
Call Shell(strcmd, vbNormalFocus)

Ola;

Código:

Private Sub SeuBotão_Click()
Static acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
    strDbName = "C:\Users\ndidini\Desktop\Financeiro.accdb"
        Set acc = New Access.Application
        acc.Visible = True
        Set db = acc.DBEngine.OpenDatabase(strDbName, False, False)
        acc.OpenCurrentDatabase strDbName
db.Close
Set db = Nothing
End Sub

Ou:

Código:

Option Compare Database
'constantes sempre fora do botão
Const strCaminho = "C:\Users\ndidini\Desktop\"
Const strBancoExterno = "Financeiro.accdb"

Private Sub SeuBotão_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)
End Sub