Dim db as database
Set db = Workspaces(0).OpenDatabase("C:\MiCarpeta\biblio.mdb")
db.execute "SELECT * INTO [dBase III;DATABASE="C:\CarpetaDestino].[testa] FROM [TablaMDB]"

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)