VBA导致不正确的日期添加到Access数据库

Question

Private Sub Command16_Click()
 If Me.CurrentRecord < Me.Recordset.RecordCount Then
    DoCmd.GoToRecord Record:=acNext
 ElseIf Me.CurrentRecord = Me.Recordset.RecordCount Then
    Dim tempDate As Date
    tempDate = Me.Recordset!StartDate

    Me.Recordset.AddNew
    Me.Recordset!StartDate = DateAdd("d", 7, tempDate)
    Me.Recordset.Update
    Me.Recordset.MoveNext
 End If
End Sub

使用上面的代码会导致我的Access数据库表（“Weeks”）损坏。例如，如果我有：

2/5/2018
2/12/2018

然后我想要下一个按钮导致：

2/5/2018
2/12/2018 
2/19/2018

它有90％的时间;但是，有时我最终得到：

2/5/2018
2/12/2018
2/19/2018
2/12/2018 <-- WHY????
2/19/2018 <--- Obviously results from bug in the above line

知道为什么会这样吗？我认为它与Recordset有关。似乎在我关闭表单然后再将其打开后发生。