Visual Basic para Aplicaciones - Copia de seguridad

HOLA GENTE, QUIERO REALIZAR UNA COPIA DE SEGURIDAD DE UNA BASE DE DATOS DE ACCESS 97 LLAMADA NOTARIAL CON UN PROGRAMA EJECUTABLE DE VISUAL.
PARA QUE SE ENTIENDA QUIERO AGREGAR EL ACCESO DIRECTO AL ESCRITORIO (ESTE ACCESO DIRECTO SERIA EL PROGRAMA GENERADO DE VISUAL) Y QUE AL HACER DOBLE CLICK, O SEA AL EJECUTARLO ESTE PROGRAMA ME COPIE AUTOMATICAMENTE TODA LA BASE DE DATOS A UNA CARPETA LLAMADA COPIA DE SEGURIDAD, ALGUIEN ME PUEDE DAR UN EJEMPLO. MUCHAS GRACIAS
AHH, SE ME OLVIDABA, LA BASE DE DATOS TIENE CONTRASEÑA POR SI LA PRECISAN ES "2010ODISEA". MUCHAS GRACIAS DE NUEVO

LO PRIMERO ES CERRAR LA BASE SI NO NO TE DEJA
NOTARIAL.CLOSE

WPTAH = RUTA ORIGEN EJ "C:MIBASE"
WPATH1 RUTA DESTINO EJ "C:BACKUP"
FileCopy WPath & "NOTARIAL.mdb", WPath1 & "NOTARIAL.mdb"

O podes hacer una copia por dia

If Weekday(Date) = 2 Then
FileCopy WPath & "NOTARIAL.mdb", WPath1 & "LUNES.mdb"
ElseIf Weekday(Date) = 3 Then
FileCopy WPath & "NOTARIAL.mdb", WPath1 & "MARTES.mdb"
ElseIf Weekday(Date) = 4 Then

has probado ha hacer un archivo por lotes? .bat