Halk,

Boa Tarde!

Até aonde vai meu conhecimento de VBA (que não é muito), creio que isso não seja possível. Se alguém souber como faz isso, também estou curioso para saber como faz!

Mas... qual é exatamente a aplicabilidade disso? Poderia ser resolvida de alguma outra forma? O que pretende?

Wagner Morel,

Eu uso o BD 'base' para administração, e os dados mais antigo eu exporto para BD chamado 'Arquivo morto'. Aí eu apago do BD 'Base' os dados que foram exportado para o BD 'Arquivo morto'. Mas frequentemente eu preciso consultar alguns dados que já foram registrados a muito tempo, então eu preciso mudar a conexão de BD 'Base' para BD "Arquivo morto'. E isso acaba não sendo tão prático. Compreende?!
Esse processo permite que o BD 'Base' Não fique pesado e então as consultas me dão uma resposta bem rápido e precisa.

Halk,

Entendi...

Bem, nesse caso, eu utilizaria um arquivo Excel para cada situação. Um conectado ao BD "Base" e outro conectado ao BD "Arquivo Morto". Dessa forma, se necessário, você poderá ter as consultas que quiser, na sua tela, simultaneamente. Todavia, em arquivos separados.

Eu até conheço aplicações (softwares mesmo desenvolvidos por empresas de desenvolvimento de software) que fazem consultas a Bancos de Dados diferentes em servidores de bases de dados distintos. Entretanto, não conheço uma aplicação que faça, ao mesmo tempo, consulta a Banco de Dados diferentes.

Pois é Wagner,

É exatamente isso que estou fazendo, porém uso só Access mesmo. Faço a busca em outro BD com o código:

Dim sArquivo
Dim sEspecificação As String
Dim sTítulo As String
sEspecificação = "Arquivos de Excel (*.mdb*),*.mdb*"
sTítulo = "Selecione o Banco de dados:"
sArquivo = CStr(Application.GetOpenFilename(sEspecificação, , sTítulo, , False))
If sArquivo <> CStr(False) Then
Debug.Print sArquivo
Range("bd") = sArquivo
Unload Me
Unload frmCadastro
 .ConnectionString = "Data Source=" sArquivo
MsgBox "Banco de dados conectado com " & sArquivo, vbInformation, "Conexão de dados"
Else
End If

Aí eu faço essa URL ficar gravado em uma célula.