[Resolvido]Inserir dias do mês no Subformulário

Bom dia a todos!
Eu estou procurando uma forma de, no formulário, ao informar o primeiro dia ou escolher um mês, e clicar em um botão, se preencha um subformulário com os dias de 01 a 30 ou 28/31 quando for o caso, na sequencia. Já pesquisei mas ainda não encontrei nada parecido.
Fico no aguardo e agradeço desde já.

Adapta ai........(Funcionamento parecido com gerador de parcelas)

Private Sub btAddDias_Click()
'-------------------------------------
' Criado Scandinavo
' em 19/10/2017
'-------------------------------------
Dim DB As Database
Dim rs As DAO.Recordset

Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tblDias")

Dim DataInício As Date 'Define as variaveis
Dim DataFim As Date 'Define as variaveis
Dim QntDias As Integer 'Define as variaveis
Dim d As Integer 'Define as variaveis

DataInício = CDate("01/" & Month(Me!Mes) & "/" & Year(Me!Mes)) 'Carrega as variaveis
DataFim = DateAdd("d", -1, DateAdd("m", 1, DataInício)) 'Carrega as variaveis
QntDias = DateDiff("d", DataInício, DataFim) + 1 'Carrega as variaveis

'Verifica se o subfrm não esta preenchido
If Forms!frmMes!subfrmDias.Form.RecordsetClone.RecordCount = 0 Then

Else ' se ja emite mensagem
MsgBox "Lista já preenchida !", vbCritical, "Atenção"
Exit Sub ' sai da função
End If
'Se não preenche o subfrm com os dias
For d = 1 To QntDias
rs.AddNew
rs("MesDias") = Me.Mes
rs("Dias") = d
rs.Update
Next
rs.Close
DB.Close
'Atualiza o subfrm
Me.subfrmDias.Requery
End Sub

Boa tarde amigo scandinavo
Seu exemplo me ajudou.
Muito obrigado!

Valeu pelo retorno