Exportar e importar dados de tabelas e bds iguais mas armazenados em locais diferentes

Alguém tem uma função  para exportar  e importar dados de tabelas  e bds iguais mas  armazenados em locais diferentes, tipo um backup mas somente das tabelas?

Public Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.

Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\Backup Sistema ASCP - Controle de Estoque\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\ASCP Controle de Estoque - Modificado.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function

'Ao clicar em sair salva o BD
Private Sub Botão_Sair_Click()
If MsgBox("Deseja Sair do Sistema? ", vbYesNo, "Aviso de Saída") = vbYes Then
Call BackBD
Quit acQuitSaveAll
End If
End Sub