[Resolvido]Alterar base de dados de um formulário;

Boa noite amigos, tudo bem, tenho um formulário, onde eu preciso abrir valores de outras tabelas.
Seria possível um botão que escolhesse ou uma caixa de diálogo qual tabela quero atribuir a ele?
Desde já agradeço.

Olá Fernando,

Na moral nhãs opinião poderá ser pelo Recordeset, pesquise no fórum.
Pode criar uma caixa de listagem com o nome das tabelas.
Veja se este tópico ajuda:
https://www.maximoaccess.com/t31511-resolvidoalterar-a-origem-de-registos-e-novo-caminho-bd-via-vba

Abraço

Olá, obrigado por responder, é bem isto mesmo que eu estava procurando.
Porém ... quando em clico em importar tabelas ela mostra 0 tabelas importadas,
será que isso é porque o Microsoft Office 12.0 Object Library está desabilitado?
pois não o encontrei
Caso puder ajudar agradeço. obrigado

Código:

Public Function fncLocalizarArquivo()
'''Para funcionar esta linha abaixo eu tenho que habilitar a referencia Microsoft Office 12.0 Object Library
Dim fd As Office.FileDialog
On Error GoTo trataErro
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
   With .Filters
       .Clear
       .Add "Banco de Dados", "*.accdb", 1
       .Add "Todos", "*.*", 2
   End With
   .Title = "Selecionar Banco de Dados)"
   .AllowMultiSelect = False
   .InitialFileName = "c:\"
   .InitialView = msoFileDialogViewPreview
   If .Show Then
       fncLocalizarArquivo = .SelectedItems(1)
   End If
End With
sair:
   Exit Function
trataErro:
   fncLocalizarArquivo = ""
   Resume sair:
End Function

Resolvido obrigado