I have a table with one record which includes 2 fields--a  year (1999) and a
total number of years (any single number greater than 2)  I want to add lines
to the table where the year increases by one and the total number of years
decreases by one, and I want the number of lines added to the table to stop
when the total number of years =0  The code I've written is:

Dim RecSetVal As String
RecSetVal = "PlanNumber-" & Me.PlanNumber
   Dim ctl As Control
   Set ctl = Me.PlanNumber
   Dim dbs As Database, rst As Recordset, NewId As Long
       Set dbs = CurrentDb
       Set rst = dbs.OpenRecordset(RecSetVal)
       With rst
       Do While Me.HowManyYears > 0
           .MoveLast
           .MoveFirst
           .AddNew
           !HowManyYears = Me.HowManyYears - 1
           !FiscalYearStart = Me.FiscalYearStart + 1
           .Update
           .MoveNext
           Loop
       End With
   dbs.Close

After the first line, the loop procedure continues adding lines, but
neglects to reach zero.  

Please tell me what it is I'm missing.