Alterar valores em campos de formulário contínuo por meio de cálculo via vba

Boa noite a todos e todas.

Tenho um botão em um formulário contínuo com o seguinte código:

Dim Cont As Long
Dim i As Integer
Set Rs = Me.RecordsetClone
Rs.MoveLast
Cont = Rs.RecordCount
Rs.MoveFirst
For i = 1 To Cont
Rs.Edit
Rs("QProd") = Me.QEnt + Me.QProd
Rs.Update
Rs.MoveNext
Next
Rs.Close

veja imagem:

[url=]

Eu gostaria que em cada linha do formulário contínuo, esse código pudesse me dar  o resultado da soma no campo QProd conforme valores colocados nele próprio e no campo QEnt.
O Código só funciona bem na primeira linha do formulário contínuo, e nas outras linhas, ele repete o valor dobrado da primeira.