Public Sub FillDates()
' Will fill a Date Field with consecutive date values.
Dim Db As DAO.Database
Dim rs As Recordset
Dim dteFrom As Date
Dim dteTo As Date
Set Db = CurrentDb
Set rs = Db.OpenRecordset("tblDates")
dteFrom = [Date()]
dteTo = DateAdd("y", 190, [Dates])
With rs
Do Until dteFrom = dteTo + 1
.AddNew
!Dates = dteFrom
.Update
dteFrom = dteFrom + 1
Loop
End With
Set Db = Nothing
Set rs = Nothing
End Sub