什么时候才能遇到能够帮我解决问题的人！！！

Private Sub Form_Current()
Dim Rs2 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim strSQL As String
Dim tmpSQL As String

strSQL = "SELECT * FROM 表2 ORDER BY [品名及规格],[序号];" '这里按[品名及规格],[序号]排序
Rs2.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
If Rs2.EOF Then Exit Sub '批这若没有返回数据就退出
Dim inputValue As String

Do Until Rs2.EOF '这里遍历全部记录
    If Rs2!品名及规格 = "" Or IsNull(Rs2!品名及规格) Then
        inputValue = InputBox("些条记录的内容如下:" & vbCrLf & Rs2!月度 & "月度:" & "上月库存数量:" & Rs2!上月库存数量 & "，上月库存金额:" & Rs2!上月库存金额 & "，本月入库数量:" & Rs2!本月入库数量 & "，本月入库金额:" & Rs2!本月入库金额 & vbCrLf & "销售数量:" & Rs2!销售数量 & "，本月成本单价:" & Rs2!本月成本单价 & "，本月销售金额:" & Rs2!本月销售金额 & "，本月库存数量" & Rs2!本月库存数量 & "，本月库存金额:" & Rs2!本月库存金额 & vbCrLf & "请输入产品或规格：", "检到此" & Rs2!月度 & "月度的记录没有规格或产品名称")
        If inputValue = "" Then
            MsgBox "你没有输入记录", vbOKOnly, "您好"
        Else
            Rs2!品名及规格 = inputValue
            Rs2.Update
        End If
    End If
    Rs2.MoveNext
Loop

Rs2.MoveFirst
Dim tmpCount As Integer
Rs2.MoveFirst
Dim tmpText1 As String, tmpText2 As String, tmpStand As String

tmpText1 = Rs2!本月库存数量
tmpText2 = Rs2!本月库存金额
tmpStand = Rs2!品名及规格

tmpCount = 0
Do Until Rs2.EOF '这里遍历全部记录,这里才是主要的

    Rs2.MoveNext
    If Rs2.EOF Then Exit Do
    If Rs2!品名及规格 = tmpStand Then
   
        Rs2!上月库存数量 = tmpText1
        Rs2!上月库存金额 = tmpText2
        Rs2.Update
        tmpText1 = Rs2!本月库存数量
        tmpText2 = Rs2!本月库存金额
    Else
        tmpText1 = Rs2!本月库存数量
        tmpText2 = Rs2!本月库存金额
        tmpStand = Rs2!品名及规格
    End If
Loop
Rs2.Close
Set Rs2 = Nothing

'MsgBox Rs2.RecordCount - tmpCount & "条记录完成上月库数量与上月库存金额完成写入操作" & vbCrLf & tmpCount & "条记录写入失败", vbOKOnly + vbInformation, "您好"
End Sub
我要实现的是当我在后台数据库里批量导入后，当同一ID，第一条数据的本月库存数量是100，那么该ID第2条数据的上月库存就=100。当第一条的本月库存发生变化时，第2条的上月库存也会发生相应的变化。依次类推！！