Necesito llenar en una tabla un campo con fechas desde el 01/01/2002 hasta
01/01/2007, es decir un dia por registro, y he oido o visto en algun hilo
que se pueden crear registros de esta forma por codigos. . La tabla está
vacia y el campo que recibira la fechas es de tipo fecha.
 No se si me explico, es  una fecha por registro

Alguien sabe como hacerlo?


BUHO
====

Function Rellena()
 Dim Rs As DAO.Recordset, VarFecha As Date
 Set Rs = CurrentDb.OpenRecordset("Select * From Fecha")
 VarFecha = CDate("01/01/2002")
 Do While VarFecha < CDate("01/01/2007")
  With Rs
   .AddNew
   !Fecha = VarFecha
   .Update
  End With
  VarFecha = VarFecha + 1
 Loop
 Rs.Close
 Set Rs = Nothing
End Function