How to get all data updated to the new one

[masyus]

While Not rstData4.EOF

If rstData4("SpecID") = SpecId Then
ReviewDate3 = UCase$(Trim$(NullReturn(rstData4("SpecLastUpdate"), "")))
ReviewDate3 = rstData4("SpecLastUpdate")
ReviewDate4 = DateAdd("m", 60, ReviewDate3)
EffectiveDate2 = ReviewDate4
GoTo FoundSpec
Else
rstData4.MoveNext
End If

Wend


okey, I have rstData3 and rstData4 which are the databases in access. Those databases have same specid and title and i compared in order to get the date(speclastupdate) that only have in rstData4.

SpecId = rstDate3
ReviewDate3 = the name for speclastupdate in rstData4
ReviewData4 = new date after dateadd
EffectiveDate2 = date displayed in output attached (EFFECTIVE_DATE)

Hope these information will good enough for u to help me to figure out what was the problem? please..