De um Banco abrir outro MsAccess (2003)

Este código (Exemplos de VBA deste fórum) está dando erro na linha:
Set objaccess = GetObject("c:\Teste.mdb")

Tirei a linha de erro, e está funcionando blz., mas mesmo assim, pediria que se fosse possível, alguem o corrigisse ou me indicasse se estou cometendo algum erro, pois vou usa-lo em todos meus sistemas.

Abrir Banco a partir de outro Banco Ms Access

Private Sub SeuBotao_Click()
Dim strcmd As String
Dim objaccess As ACCESS.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "c:\Teste.mdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("c:\Teste.mdb")
'DoCmd.Quit ' para fechar o banco mdb que chamou o outro
End Sub

Abraços,

Verifique as referencias no VBA, deve faltar marcar alguma.

JPaulo,

Estão marcadas as referencias:

Visual Basic For Applications
Microsoft Access 11.0
Ole Automation
Microsoft DAO 3.6
Microsoft ActiveX Data Objets 2.5

Agora que vi a imagem, realmente está faltando a Microsoft Scripting Runtime, vou marca-la e testar

Continua dando erro,
o outro BD abre normalmente, mas no BD que executou o código dá o erro:

Erro em tempo de excução: 2001
Voce cancelou a operação anterior

testado e a funfar sem problemas.

Descomente a linha 'DoCmd.Quit ' para fechar o banco mdb que chamou o outro

Feche ambos os bd`s e volte a testar.

JPaulo,
Funfou legal,
Muito obrigado mais uma vêz.

Abraços,
Junior Wano

Obrigado pelo retorno amigo.