gem rapport med timestamp

Jeg forsøger at gemme en rapport med timestamp men kan ikke lige få det til at virke, nogle der kan hjælpe?


Private Sub gemKopi()

Dim stDocName As String
stDocName = "dokument"
Dim TimeStamp As String
Dim TimeStamp1 As String
Dim TimeStamp2 As String
Dim TimeStamp3 As String

TimeStamp = Time
TimeStamp1 = Mid$(TimeStamp, 1, 2)
TimeStamp2 = Mid$(TimeStamp, 4, 2)
TimeStamp3 = Mid$(TimeStamp, 7, 2)
TimeStamp = TimeStamp1 + TimeStamp2 + TimeStamp3 & "dokument.doc"

DoCmd.SaveReport stDocName FileName:="c:\arbejde\" & TimeStamp

End Sub