Como mostrar os dias entre datas

Olá pessoal,

Tenho uma tabela A que registra as datas de trabalho de funcionários, e preciso que seja criada uma tabela B indicando os dias detalhados de trabalho entre datas.
Exemplo: Na tabela A tenho os dados seguintes:
Nome funcionário: Antonio
Data de início de trabalho: 01/01/2017
Data de fim de trabalho: 05/01/2017

A tabela B a criar deverá conter os seguintes registros:
Antonio 01/01/2017
Antonio 02/01/2017
Antonio 03/01/2017
Antonio 04/01/2017
Antonio 05/01/2017

Espero ter descrito a minha necessidade com bastante clarezas.

Obrigado,
PV

Para incluir:

Código:

Sub IncluiSegundaTabela()
Dim vNumDias As Integer
Dim vDataIni
Dim vFuncionario As String
Dim i As Integer

vFuncionario = <<<CampoFuncionario>>>
vNumDias = DateDiff("d", <<<DataIni>>>, <<<DataFim>>>)
vDataIni= <<<DAtaIni>>>

DoCmd.SetWarnings False
For i = 0 To vNumDias
    DoCmd.RunSQL "INSERT INTO <<<tabelaB>>> (<<<CampoFuncionario>>>, <<<CampoData>>>) VALUES ('" & vFuncionario & "', #" & Format(DateAdd("d", i, vDataIni), "mm/dd/yyyy") & "#);"
Next i
DoCmd.SetWarnings True

End Sub

Sendo que <<>>, <<>>,  etc. se referem a campos do seu BD.

thiagomcosta muito obrigado vou tentar fazer este código na segunda-feira!

Bom dia, pviegas
Mantenha o título, não o use para mensagem