Hace referencia en el proyecto a la Microsoft Access 11.0 Object Library
Declara la variable
Global miAccess As Access.Application
La habilita
Set miAccess = New Access.Application
La abres
miAccess.OpenCurrentDatabase App.Path & "\Mibase.mdb", False
Exporta la tabla
miAccess.DoCmd.CopyObject App.Path & "\miotrabasedb.mdb", "miotratabla", acTable, "mitabla"
Cierro la base
miaccess.CloseCurrentDatabase