sum af 2 tekstbokse

Hej har følgende formel fra en tekstboks i post 1 som skal videre føres til post 2 i en anden tekstboks:

=![Drftdageugen1] + [Drftdageforr1]

i VBA virker denne kode, så data fra tekstboksen [Drftdageugen1] + [Drftdageforr1] post1 overføres til tekstboks [Drftdageforr1] i post2:

Private Sub Form_Current()

Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.Recordset.Clone
rs.MoveLast

Me.Drftdageforr1.DefaultValue = rs![Drftdageugen1] + [Drftdageforr1]

rs.Close
End If

End Sub

problemet er, at hvis jeg skifter mellem post 1 og post 2, flere gange. bliver tallet højere og højere, da den lægger [Drftdageugen1] + [Drftdageforr1] sammen hele tiden.

kan det lade sig gøre at det kun kommer til at ske en enkelt gang? skal nemlig kunne gå frem og tilbage mellem posterne uden at værdierne hele tiden ændres.

mvh

Niels