Sub CopiaYborra() 'Lo primero debes situar la MDB que deseas copiar 'Luego dar nombre a la copia. Dim Sql As String Dim BaseReciente As dao.Database FileCopy CurrentProject.Path & "\DATOS.MDB", _ CurrentProject.Path & "\" & "CopiaDatos.mdb" 'En este caso he supuesto que la base que deseas copiar 'es datos.mdb y que se encuentra en el Path actual que corre este codigo 'Tambien he supuesto que la copia de dicha base la llamo CopiaDatos.Mdb 'y la deposito tambien en el mismo Path 'Ahora en la base RECIEN CREADA, debo borrar los siguientes datos: Set BaseReciente = OpenDatabase(CurrentProject.Path & "\CopiaDatos.mdb") DoCmd.SetWarnings False 'Aqui borro datos de las tablas,si el usuario quiere If MsgBox("¿Desea borrar los datos de articulos en esta nueva base?", vbYesNo, "AVISO") = vbYes Then Sql = "DELETE * FROM Articulos" BaseReciente.Execute Sql End If 'etc con otras tablas 'esta sería la forma de vaciar las tablas que quisieras de CopiaDatos.mdb BaseReciente.Close Set BaseReciente = Nothing End Sub