Visual Basic - copia Base de Datop

Hola a todos!!!

Alguien me podría decir que código utilizar para hacer una copia de seguridad de la Base de Datos y renombrarla???

Bien lo que puedes hacer es crear una rutina que te copie la Base de Datos a otra direccion.
Sub CopiaSeguridad()
Dim Origen, Destino
Origen = "C:\Mantenimiento\Materiales.mdb"
Destino = "C:\RespaldarBD\Materiales.mdb"
FileCopy Origen, Destino ' 'Copiar
'Renombrar
Name "C:\RespaldarBD\Materiales.mdb" As "C:\RespaldarBD\CopiaMateriales.mdb"
Msgbox "Base de Datos Respaldada", vbInformation
End Sub