困惑：表里每次新增信息，第二条也被重新修改为最新的新增信息。

执行以下代码新增记录后，表里每次新增信息，第二条也被重新修改为最新的新增信息。不知道代码哪儿出错了。请大侠指教。

Private Sub Command140_Click()

Dim rst As Object
Dim strSQL As String
Dim strFrm As String
Dim ID As Single
Dim MaxID As String
Dim currentID As String

MaxID = DMax("[ID]", "tb_biq_data")
currentID = MaxID + 1
strSQL = "select * from tb_biq_data"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

rst.AddNew
rst!ID = currentID
rst!rq = Me.rq
rst!bc = Me.bc
rst!xhqy = Me.xhqy
rst!ljlx = Me.ljlx
rst!ljh = Me.ljh
rst!zsh = Me.zsh
rst!defectloc = Me.defectloc
rst!defectownerloc = Me.defectownerloc
rst!qxlb = Me.qxlb
rst!defectnum = Me.defectnum
rst!typefmn = Me.typefmn
rst!typenw = Me.typenw
rst!symptom = Me.symptom
rst!qxms = Me.qxms
rst!fggs = Me.fggs
rst!cfcs = Me.cfcs
rst!owner = Me.owner
rst!zrbm = Me.zrbm
rst!finder = Me.finder
rst.Update
rst.Close

Set rst = Nothing