Supongo que te refieres ha hacer copias de seguridad de las bases de datos y su posterior recuperación ¿no?
Para la copia (respaldo) debes cerrar la base de datos:
Dim NombreViejo$, NombreNuevo$
' primero la reparamos para eliminar los posibles
DBEngine.RepairDatabase ("C:\MiCarpeta" & "\aneu.mdb")
' Acaba el respaldo
' Es conveniente, además, el compactar dicha base para quitar la "basura"
' como puedes ver, al compactar nos crea una B.D. nueva
DBEngine.CompactDatabase "C:\MiCarpeta" & "\aneu.mdb", "C:\MiCarpeta" & "\aneuCom.mdb"
' borra la original
Kill "C:\MiCarpeta" & "\aneu.mdb"
NombreViejo = ("C:\MiCarpeta" & "\aneuCom.mdb")
NombreNuevo = ("C:\MiCarpeta" & "\aneu.mdb")
' renombramos la que nos ha servido como provisional y le ponemos el nombre
' de la original
Name NombreViejo As NombreNuevo
' borramos la provisional
Kill "C:\MiCarpeta" & "\aneuCom.mdb"
P.D. Esto es para DAO, con ADO es similar.
Espero te sirva
