[Resolvido]Abrir BD acess com outro progama Acess

Ola pessoal, ando com um probleminha.

Tenho uma BD em acess que neste momento esta a ficar relativamente grande e o facto de trabalhar em rede ainda pior.
Fica muito muito lenta, queria partir o programa em varios para ver se fica mais rapido.
Tenho o seguinte codigo no botao para abrir o respetivo programa mbd mas esta a dar um erro.

o codigo que tenho é o seguinte:

Private Sub COMANDO_1_Click()

Dim strcmd As String
Dim objaccess As Access.Application
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & "C:\Documents and Settings\Cabs\My Documents\new\Contactos.mdb"
Call Shell(strcmd, vbNormalFocus)
DoEvents:
Set objaccess = GetObject("C:\Documents and Settings\Cabs\My Documents\new\Contactos.mdb")
'DoCmd.Quit ' para fechar o banco mdb que chamou o outro
End Sub


Algo errado???

Amigo, sempre que precisar de ajuda com erros de aplicativo, poste o erro apresentado e se o aplicativo depurar, a linha apontada na depuração. Fica mais fácil identificar o que pode estar errado.

Nao e propriamente errro no codigo vba mas nada melhor que imagem para identificar o problema.

Talvez seja problema com referências. Dê uma olhada nesse tópico: http://maximoaccess.forumeiros.com/t1603-resolvidoajustes-no-prototipo-backup-e-restauracao-em-rede

Tem algumas dicas para resolver uma questão parecida, com imagens das referências.

Por acaso nao tinha os dois ultimos mas a sua activação de nada valeu continuo a ter o mesmo problema e a mesma msn.

Estou a trabalhar com o Acess 2007 caso faça diferença.

Mais alguma dica?

Substitua MDB, por ACCDB e teste

se não me engano esse codigo é do Grande JPaulo e nele o caminho não pode ter espaços

"C:\Documents and Settings\Cabs\My Documents\new\Contactos.mdb"

teste noutro caminho sem espaços e veja como funciona na boa.

Quanto a hipótese de ter ficheiro ACCDB e de todo impossível nao sei pk mas no trabalho nao me permite abrir ficheiros desses.

Quanto a ultima sujestao trabalhou esquesito o acess . LOL

Obrigado pelas dicas. A todos.

Mas resolveu o assunto ou não????

Bom vou dar o tópico por encerrado, qualquer coisa reabra por favor.