Bom aqui está o o código botão incluir

 

Private Sub btnSalvar_Click()
Dim L, C As Integer
Conecta True
SQLPROF = "SELECT ID_PROF FROM TAB_PROF WHERE NOME='" & cboNome.Text & "'"
Set PROF = Conexao.Execute(SQLPROF)
With Grid
For L = 1 To .Rows - 1
For C = 2 To .Cols - 1
If .TextMatrix(L, C) <> "" Then
Conexao.Execute ("INSERT INTO TAB_TIME (ID_PROF,ID_DEMANDA,DT_LANCAM,QTD_HORAS) VALUES (" & PROF("ID_PROF") & "," & .TextMatrix(L, 1) & ",'" & Date & "','" & .TextMatrix(L, C) & "')")
End If
Next C
Next L
End With
Conecta False
MsgBox "Inclusão efetuada consucesso!", vbExclamation, "Inclusão efetuada!"
End Sub

 

 

Detalh ainda a se resolver, repare que a data eu slavo como date, ou sje a a data atual e não a do mes selecionado, coloquei assim apenas para teste, o metodo de inclusão está pronto, agora ua coisa tem de se resolver, como formatar a data para se salvar no banco estou fazendo uns teste assim que resolver enviarei o resultado

 

 

Na realidade tive uma idéia parecida com a sua porém alguma scoisas pretendia alterar no código, veja o que pensei, primeiro criar mais uma combo, nesta incluir o ano a combo mês deixaria apenas os meses sem o ano, para contar os dias que o mes possui tenho uma função ksuper simples, ficando o programa pra tempo indeterminado, exemplo se nó colocarmos até 2020 na combo ano a função conta quantos dias terá o mes de abril de 2020 entendeu assim ficara mais prático para montarmos a data de lancamento.

 

o qeu você acha?

Recebi o seu projeto, mas senti falta do potão incluir linha, que deveria estar ali não é