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]"