Bağlı tabloda yedek

Bağlı tablomun yedeğini aşağıaki kodla alıyorum. Bu koda yedek dosyayı bu günün tarihi ile isimlendiriyor. Tarih ve saatle isimlendirebilirmiyiz?
msg = msg & "Data Dosyanızın Yedeği Alınsın mı?" & vbCrLf & vbCrLf
If MsgBox(msg, vbQuestion + vbYesNo, "Veritabanı Yedekleme") = vbYes Then
Dim fileObj As Object
Dim strDB As String
Dim strBackupName As String

DoCmd.Hourglass -1

Let strDB = "DATA1.mdb"
Let strBackupName = Date & "_" & strDB
Path = CurrentProject.Path
Let strDB = Path & "\" & strDB
Let strBackupName = Path & "\YEDEK\" & strBackupName

Set fileObj = CreateObject("scripting.filesystemobject")

fileObj.CopyFile strDB, strBackupName, True

msg = MsgBox("Yedekleme İşlemi Başarı ile Tamamlandı.:" & vbCrLf & vbCrLf & strBackupName, vbInformation, "ÖĞRENCİ TAKİP ASİSTANI")

DoCmd.Hourglass 0



End If

Merhaba..

...
........
Let strBackupName = Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmm") & "_" & strDB
......
................

Bu şekilde biçimlendirebilirsiniz..

Teşekkürler Taruz;
istediğim oldu