求老师的帮助

Sub test()


    Dim rst    As DAO.Recordset
    Dim rst1   As DAO.Recordset
    Dim i      As Double
    Set rst = CurrentDb.OpenRecordset("SELECT 进货还款.供应商, Sum(进货还款.还款金额) AS 金额合计 FROM 进货还款 GROUP BY 进货还款.供应商;")


    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
        i = rst!金额合计
        Set rst1 = CurrentDb.OpenRecordset("SELECT 进货表.* FROM 进货表 where 供应商='" & rst!供应商 & "'")
        With rst1
            .MoveLast
            .MoveFirst
            Do Until .EOF
                .Edit
                If i >= !进货金额 Then
                    !进货还款 = !进货金额
                    !进货欠款 = 0
                    i = i - !进货金额
                Else
                    !进货还款 = i
                    !进货欠款 = !进货金额 - !进货还款
                    i = 0
                End If
                .Update
                .MoveNext
            Loop
        End With
        rst.MoveNext
    Loop
    rst1.Close
    Set rst1 = Nothing
    rst.Close
    Set rst = Nothing
End Sub