求大师帮助，入库信息输入一条就会把上一条覆盖掉！

代码如下：

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler


    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub


    Dim cnn: Set cnn = CurrentProject.Connection  'ADO.Connection()


   cnn.BeginTrans
   Dim blnTransBegin As Boolean: blnTransBegin = True


    Dim strSQL: strSQL = "SELECT * FROM [tblInbound] WHERE [物料编码]=" & SQLText(Me![物料编码])
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then rst.AddNew
    UpdateRecord Me, rst
    '你的自定义代码
    rst!物料编码 = Me!物料编码
    rst!物料名称 = Me!物料名称
    rst!型号 = Me!型号
    rst!规格 = Me!规格
    rst!单位 = Me!单位
    rst!数量 = Me!数量
    rst!入库时间 = Me!入库时间
    rst.Update
    rst.Close


   cnn.CommitTrans
   blnTransBegin = False


    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation


    If Me.DataEntry Then
        Me.InitData
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If


ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub


ErrorHandler:
   'If blnTransBegin Then
   '    cnn.RollbackTrans
   '    blnTransBegin = False
   'End If
    If RDPErrorHandler(Me.Name & ": Sub btnSave_Click()") Then
        Resume
    Else
        Resume ExitHere
    End If
End Sub