VBA to create dated backup file

I have this code that is ran from an excel workbook:

Sub Export_Shift()

ActiveWorkbook.Sheets(1).Select
ActiveSheet.Copy
 
 
    ActiveWorkbook.SaveAs "S:\Production reports\" & Replace(Range("G3").Value, "/", "-") & "-" & Range("G5").Value, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    ActiveWindow.Close

End Sub

Now i want to go a step further and create a backup of an ACCESS file. Say access file "Database" in "C:\Database" i want to have a copy saved in "C:\Backup" with a naming scheme like Replace(Range("G3").Value (Database 03-30-15 for example). If not Replace(Range("G3").Value then just todays date would be fine.

I know that this isnt directly related to excel, but i want this to happen every time i run the code above in my excel workbook. Is it possible? Thanks

You can add this to the end of your filename, using whatever date format you prefer:

 & Format(Date, "yy_mm_dd")

Thank you not quite what im looking to do. Ive come up with this code that simply copies and changes the name:

FileCopy "S:\Shipping Receiving\Extrusion\dbExtrusion Receiving.mdb", "S:\AC 174 Railing Certification Program\Database Backups\Backup of dbExtrusion Receiving " & Month(Now()) & "-" & Day(Now()) & "-" & Year(Now()) & ".mdb"

The code gives me an error: Runtime error 70, permission denied. Ive read that this happens when the file is open by other users. I can get around the file being open by other users, is there a different code i can use?