Inserir automaticamente os dias do ano em tabela

Srs. boa noite. O meu problema deve ser muito simples de resolver mas o cérebro não está ajudando kkk. Na verdade acredito estar com problema com a sintaxe de datas em SQL
Preciso popular uma tabela ("tblCalendario") de um único campo ("DiaDoAno") com os 365 dias a partir de uma data inicial a ser solicitada para o usuário ([DataInicial]) em uma inputbox. Trabalhei com INSERT INTO em um loop FOR NEXT somando 01 dia ao dia anterior mas já aconteceu de tudo! Agora ao invés de somar 1 ao dia, está somando aos meses!
Poderiam sugerir algum código para isso?

Código:

Sub fncBotaData()

    Dim booSair As Integer
    Dim dtBase As Date
   
    dtBase = #1/1/2021#
   
    Do
   
        Call CurrentDb.Execute("insert into tblCalendario " & _
                              "values (""" & dtBase & """);")
   
        If booSair Then Exit Do
        dtBase = DateAdd("d", 1, dtBase)
        If Month(dtBase) = 12 And Day(dtBase) = 31 Then booSair = True
   
    Loop

End Sub

Não esqueça o resolvido do tópico.