codice:
dim fileBackUp as string, fileSorgente as stirng, miaData as string

miaData =  Replace(CStr(Date), "/", "_") 
fileBackUp = fileSorgente & "_backUp_" & miadata & ".mdb" 

If Dir(fileBackUp) = "" Then  'se non esiste lo crea
   Set mioFileSystem = CreateObject("Scripting.FileSystemObject")
   mioFileSystem.copyfile fileSorgente, fileBackUp
End If
sulla data devi fare il replace perchè il carattere "/" non è valido.
poi imposti il percorso del file di backup e controlli se esiste.
se non c'è lo crei.