当我们在VB6中添加新记录时丢失之前的记录

Question

我遇到Recordset.Addnew正在清除Access数据库中的上一条记录的问题。

当我运行应用程序时，测试结果将更新为accessDB文件。 但是当它更新新记录时，先前的测试结果记录将丢失。

请帮我解决这个问题。

这是我正在使用的代码，

TesterMainRS.Index = "DateTime" 
TesterMainRS.Seek "=", DateTime 

If Not TesterMainRS.NoMatch Then 
    TesterMainRS.Delete 
End If 

TesterMainRS.AddNew 
TesterMainRS![DateTime] = DateTime 
TesterMainRS![OrderNumber] = OrderNumber 

If DateDiff("s", PanelStart, PanelEnd) > 0 Then 
    TesterMainRS![PanelCycle] = DateDiff("s", PanelStart, PanelEnd) 
Else 
    TesterMainRS![PanelCycle] = 0 
End If 

TesterMainRS.Update