[Resolvido]Inserir uma lista de Datas(Meses) em uma Combobox, verificando o mês atual

Bom dia senhores!
Estou com uma dúvida que parece simples, me parece.

Tenho uma Combobox em um Formulário. Quero que ela liste meses a partir de uma data Inicial até o mês Atual.
Exemplificando:

Mês Inicial: 05/2012
Mês Final: (Hoje) = que seria no caso 10/2012

A Combo ficaria assim:
05/2012
06/2012
07/2012
08/2012
09/2012
10/2012

Quem puder ajudar, agradeço.
Aguardo o retorno!

Obrigado, abração!

Leonardo Picoli

Código:

Dim dt As Date

Me!NomeCombo.RowSource = ""

For dt = DataInicial To Date
    Me!NomeCombo.RowSource = Me!NomeCombo.RowSource & Format$(dt, "mm/yyyy") & ";"
    dt = dt + DatePart("d", DateSerial(Year(Date), Month(Date) + 1, 0))
Next dt

Me!NomeCombo.RowSource = Me!NomeCombo.RowSource & Format$(Date, "mm/yyyy") & ";"

Perfeito Cláudio!
Muito bom e simples, funcionou perfeitamente!

Dei uma pesquisada também e consegui a mesma coisa usando um vetor para armazenar as datas:

dataInicial = #5/1/2012#
Tamanho = DateDiff("m", dataInicial, Date)

ReDim Campos(Tamanho)
Campos(1) = dataInicial
cboMeses.RowSource = Format(dataInicial, "mm/yyyy")
For i = 2 To Tamanho
Campos(i) = DateAdd("m", 1, Campos(i - 1))
cboMeses.RowSource = cboMeses.RowSource & ";" & Format(Campos(i), "mm/yyyy")
Next i


As duas maneiras funcionam legal!
Obrigado pela atenção, Cláudio!

Vou dar a sugestão para o Fórum da criação de um botão pra agradecer o outro usuário, como um botão "curtir" ou "honrado", e um contador para casa usuário, quanto mais "honrado" eles receber será mais respeitado. Vamos ver se gostam! ^^

Abraço.