这段代码有问题吗，为什么备份的文件时间编码总是出现正负30秒

Option Compare Database
Dim dte As Date, bakname As Long

Private Sub Form_Open(Cancel As Integer)
    bakname = 1
    Me.TimerInterval = 2000 '每隔10秒检测一次时间
    dte = DateAdd("s", 30, Now()) '每隔30秒备份一次
End Sub

Private Sub Form_Timer()
If Now() > dte Then
    If Dir(CurrentProject.Path & "\业主信息管理系统（改进）_be.accdb") = "" Then  '防止备份原文件出错
      MsgBox ("当前文件夹无“业主信息管理系统（改进）_be.accdb”,无法备份")
      Exit Sub
    End If
   
      Dim bakfile As String
      bakfile = Left("自动备份" & bakname, 5)
   If Dir(CurrentProject.Path & "\Backup\" & bakfile & "*.accdb") <> "" Then     '如果已有备份,先删除备份文件
      Kill CurrentProject.Path & "\Backup\" & bakfile & "*.accdb"
   End If
  
   Set fs = CreateObject("Scripting.FileSystemObject") '开始备份文件
   fs.CopyFile CurrentProject.Path & "\业主信息管理系统（改进）_be.accdb", CurrentProject.Path & "\Backup\自动备份" & bakname & "_" & Format(Now, "yyyymmddhhss") & ".accdb", 0
   dte = DateAdd("s", 30, Now())
   bakname = bakname + 1
   If bakname > 3 Then bakname = 1 '只留三个备份文件
End If
End Sub

划线部分在备份文件的名称之中总是出现正负30秒的变动，我想实现总是在原时间上加30秒。