[Resolvido]Adicionar registros em tabela utilizando listbox

Olá novamente, gostaria de pedir a ajuda de vocês pois estou com certa dificuldade, segue a dúvida:
Em um BD tenho Formulário (form_teste) com uma ListBox (lista_nomes) alimentada pela consulta já previamente filtrada cons_nomes com 100 registros.
Gostaria de alimentar automaticamente via botão em vba uma outra tabela (tbl_nomes_data) inserindo algo como Agosto ou Setembro na tabela (tbl_nomes_data) utilizando em uma determinada coluna o nome de cada pessoa que está em cada linha da ListBox (lista_nomes) e acrescentando O Agosto ou Setembro na coluna posterior, ou seja copiar o nome de cada linha da lista e acresentar o texto Agosto EX:

tbl_nomes_data

nome Mês

João Agosto
Maria Agosto
Pedro Agosto

...

Deixa comigo que eu mesmo respondo!  

'No executar de um botão



Dim db As Database
Dim obj As Variant
Set db = currentDB()
Dim tb As Recordset
Set tb = currentDB.OpenRecordset("tabela-de-destino")


For Each obj In lista-do-form.ItemsSelected
With tb
.AddNew
!campo-da-tabela-variável = lista-do-form.ItemData(obj)
!campo-da-tabela-fixo = Agosto ' ou campo do form: Me.campo-de-origem-do-valor
!outro-campo-da-tabela = outro-valor

.Update
End With
Next obj

tb.Close
Set tb = Nothing
db.Close
Set db = Nothing

' E se desejar, pode inserir no final uma mensagem de aviso  
MsgBox "Registros inseridos com sucesso!", vbInformation, "Agora sim, ficou muito fácil!"