Private Sub SeuBotão_Click() DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\SeuBancoExterno.mdb", acTable, "SuaTabelaExterna", "SuaTabelaExterna", False End Sub
................................................................................. Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.