Access - Rellenar calendario

Public Sub generaFechas()

Dim laFecha As Date

Dim laFechaFin As Date

Dim rst As DAO.Recordset

'Indicamos la fecha inicial en formato inglés

laFecha = #1/1/2017#

'Indicamos la fecha final en formato inglés

laFechaFin = #12/31/2017#

'Creamos el recordset sobre la tabla

Set rst = CurrentDb.OpenRecordset("TFechas", dbOpenTable)

'Iniciamos el proceso de rellenado

Do Until laFecha = laFechaFin + 1

With rst

.AddNew

.Fields("cFecha").Value = Format(laFecha, "dd/mm/yy")

.Update

End With

laFecha = laFecha + 1

Loop

'Lanzamos un mensaje de aviso

MsgBox "Proceso de llenado finalizado correctamente", vbInformation, "OK"

End Sub

Public Sub generaFechas()

    Dim laFecha As Date

    Dim laFechaFin As Date

    Dim rst As DAO.Recordset

    '****

    Dim i As Integer

    '****

    'Indicamos la fecha inicial en formato inglés

    laFecha = #1/1/2017#

    'Indicamos la fecha final en formato inglés

    laFechaFin = #12/31/2017#

    'Creamos el recordset sobre la tabla

    Set rst = CurrentDb.OpenRecordset("TFechas", dbOpenTable)

    'Iniciamos el proceso de rellenado

    Do Until laFecha = laFechaFin + 1

        '****

        For i = 1 To 3

        '****

            With rst

                .AddNew

                .Fields("cFecha").Value = Format(laFecha, "dd/mm/yy")

                .Update

            End With

        '****

        Next

        '****

        laFecha = laFecha + 1

    Loop

    'Lanzamos un mensaje de aviso

    MsgBox "Proceso de llenado finalizado correctamente", vbInformation, "OK"

End Sub

Public Sub generaFechas(Inicio As Date, Fin As Date)

    Dim rst As DAO.Recordset

    Dim i As Double

    Set rst = CurrentDb.OpenRecordset("TFechas", dbOpenTable)

    With rst

    For i = CDbl(Inicio) To CDbl(Fin) Step 1 / 3

          .AddNew

          .Fields("cFecha") = i

          .Update

          Next

    End With

End Function