Добавление записи в базу данных изменяет существующую запись

Question

У меня самая странная ошибка. Ниже мой код VBA для добавления новой записи. Все значения для новой записи берутся из формы. Когда пользователь нажимает кнопку добавления, запускается приведенный ниже код. Создается новая запись, но также в поле даты существующих записей (без указания шаблона c) указывается сегодняшняя дата. Я везде искал, у меня есть форма изменения, которая обновляет поля в записях, но она не имеет ничего общего с формой добавления.

Формы добавления позволяют редактировать, если нет. Разрешить дополнения - да. Разрешить фильтры - да, а запись местоположений - без блокировок.

Private Sub cmdAdd_Click()
Dim Added As Boolean
Added = False

Dim strNow As String
Dim strUniqueID As Long

strNow = now()
strUniqueID = Format(strNow, "ddnnss")

If VerifyFields Then
On Error GoTo ErrorHandler
     'Save your Record here

    Dim db As Database
    Dim rst As Recordset
    Dim strSQL As String
    Dim newID As Long

    Set db = CurrentDb
    Set rst = db.OpenRecordset("Master TMLL")
    'Set rst = db.OpenRecordset("SELECT * from [Master TMLL]")

    rst.AddNew
   rst![Del ID] = strUniqueID
   rst![DevTrack Issue ID] = Me.DevTrackIssueID
   rst![Document Number] = Me.cmbDocNo.Value
   rst![Document Title] = Me.cmbDocTitle.Value
   rst!ShortDocTitle = Me.cmbShortTitle.Value
   rst!Content = Me.txtContent
   rst!Comments = Me.txtComment.Value
   rst!Routine = Me.txtRoutine.Value
   rst!NewDev = Me.txtNewDev.Value
   rst!Urgent = Me.txtUrgent.Value
   rst!Customer = Me.cmbCustomer.Value
   rst!Platform = Me.cmbPlatform.Value
   rst![Delivery Type] = Me.cmbDeliveryType.Value
   rst![Document Type] = Me.cmbDocType.Value
   rst![Manual Type] = Me.cmbManual.Value
   rst![Document Date] = Me.txtDocDate
   rst![Delivery date] = Me.txtDelDate
   rst![Document Version] = Me.txtDocVer
   rst![AbsPages] = Me.txtAbsPgs
   rst!PDF_pgType = Me.PDF_pgType.Value
   rst!IETM_pgType = Me.IETM_pgType.Value
   rst!TotalDMs = Me.TotalDMs
   rst!DateAddedToDB = now()
   rst!IncludesGraphics = Me.IncludesGraphics.Value
   rst!User = User
   rst!submitter = Me.submitter
   rst.Update

    rst.Close
    Set rst = Nothing
    Added = True

 Else
     MsgBox "Please fill in the highlighted fields."
 End If

If Added = True Then

MsgBox Prompt:=" Record has been added to the database. ", Buttons:=vbOKOnly + vbInformation


Dim delivery As Long
delivery = Me.Del_ID


DoCmd.Close ObjectType:=acForm, ObjectName:="Add_TMML", Save:=acSavePrompt
DoCmd.OpenForm FormName:="TMML Summary", View:=acNormal, DataMode:=acFormPropertySettings, WindowMode:=acWindowNormal

End If


Exit Sub


ErrorHandler:
Select Case Err.Number
'        Case 0 '
'        Case 20 '

        Case Else 'all other errors
            MsgBox ("Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description)