erro no tempo de execução, com o runtime para abrir outro banco de dados

bom dia

desenvolvido em access 2007
tenho um formulario que chama o modulo abaixo, para abrir um outro banco de dados que esta na pasta sys, nome do bd sys.accdb
tudo funciona perfeitamente sem o runtime, no entanto, na maquina onde o runtime é necessário, a aplicação não funciona, pois, da erro no tempo de execução.

Sub OpenDB()
Dim MinhaPassword As Variant
MinhaPassword = "12345"
strDbName = "C:\Sys\Sys.accdb"
Set objaccess = New Access.Application
Set db = objaccess.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=" & MinhaPassword)
objaccess.OpenCurrentDatabase filepath:=strDbName
End Sub

Boa noite amigo,
Gostaria de saber se alguém já encontrou a solução para este erro?
Grato att,

Amigo,
Também tenho o mesmo problema porque o meu formulário que dá partida no sistema tem uma macro AutExec.
Como runtime roda somente em tempo de execução ele trava o Access.
Esperimenta retirar essa macro.

Olá Amigo,
No meu caso o problema está na hora de chamar o outro Banco mesmo!
Porque quando eu aciono o banco de dados e coloco a senha, ele executa o a autoexec perfeitamente!
Meu problema é que eu construi um menu principal que chama os módulos, exemplo (Despesa, Receita, Fluxo), ao chamar esses bancos com o código citado acima, ocorre o erro de execução

Entendi amigo,

Tenta chamar assim e ver se responde!

No meu caso funciona

Const strCaminho = "CaminhoDoOutroBanco\"
Const strBancoExterno = "NomeDoFrontEndNoOutroBanco.accdb"
'Créditos Jpaulo
Dim Banco As Integer
Dim strComandoAbre As String
Dim strComandoAccess As String

strComandoAccess = SysCmd(acSysCmdAccessDir) & "MSAccess.exe"
strComandoAbre = strComandoAccess & " " & Chr(34) & strCaminho & strBancoExterno & Chr(34)
Banco = Shell(strComandoAbre, 3)