[Resolvido]Dividir um valor e registrar o nº de vezes e valor 2ª parte

Pessoal bom dia.

Há alguns dias o pessoal me ajudou a fazer o parcelamento em um formulário e incluir em uma tabela como mostra no link abaixo.

http://maximoaccess.forumeiros.com/t1556-resolvidodividir-um-valor-e-registrar-o-n-de-vezes-e-valo.

Segui as dicas e deu certo, porém conforme fui vendo a dica do JPaulo me serviu e consegui adequar no que estava usando.

Mas tenho uma dúvida que foi surgindo quando comecei a usar tem uma função que pega a data atual e joga mais 30 dias e as vezes acaba passando ou faltando um dia dependendo do mês.
Funciona perfeito.

Mas gostaria de saber o seguinte como fazer dentro da função que eu tenho para sempre ir mudando apenas o mês e depois ver se ele é feriado ou não.

A função que estou usando é essa.

' Define o próximo vencimento
DtVencimento = DtVencimento + Me.Intervalo
DtAjuste = DtVencimento

(É nesse Me.Intervalo que não sei como fazer para ele mudar apenas o mês tipo o vencimento é 01/01/2011 mude para 01/02/2011).

Agradeço pela ajuda.

Assim:

Meu campo=DateAdd("m", 1, [Dtvencimento]), para mudar o mês. Existem outras funções mais complexas para verificação de feriados. Pesquise na net que encontra.

DtVencimento = DateSerial(Year(DtVencimento), Month(DtVencimento) + 1, Day(DtVencimento))

Novo Exemplo:
http://dl.dropbox.com/u/771097/Parcelamento_II.rar

Pessoal muito obrigado pela ajuda, agora rodou certinho.

Obrigado pela ajuda.

Agradecemos pelo retorno. Favor colocar sempre o Resolvido. É só clicar no botão Resolvido aonde envia a mensagem.