Criar múltiplos registros e campo pré preenchido

E ai pessoal tudo bom, seguinte eu fiz um banco de dados e agora eu só preciso adicionar uma coisa.

Eu preciso de um botão no form do tblColaborador que crie um novo registro na tblLevel (a tabela no form tbl Colaborador já faz isso, mas apenas um) para todas as áreas com a data atual, eu sei criar um registro novo mas não sei como adicionar vários e já passar valor para os campos.

É basicamente isso, apertar um botão e ao invés de 1 registro novo, vários já passando a área e data, faltando apenas o level.

Acho que criar vários registros é fácil, estou tentando mesmo é colocar no campo da Área um valor e precisa ser relacionado com o Colaborador selecionado.

Att,
Pedro



*EDIT*

Estou quase conseguindo, preciso apenas ver como relacionar com o Colaborador.

Meu código do botão está assim por enquanto:


Private Sub Comando23_Click()

Dim dbNCW6b As DAO.Database
Dim rsttblInvestigations As DAO.Recordset
Dim nomeArea As Integer
Dim contador As Integer
contador = 1


Set rs = CurrentDb.OpenRecordset("SELECT * FROM [tblLevel]")


'nomeArea = "SELECT tblLevel.[Pesquisar_em_tblArea] FROM tblLevel " & _'
'"WHERE [Pesquisar_em_tblArea] = " & contador'


rs.AddNew
rs("Pesquisar_em_tblArea").Value = contador
rs("Data").Value = DateTime.Now
rs("Pesquisar em tblColaborador").Value = Form_tblColaborador.CÓDIGO



rs.Update

End Sub



Ainda não implementei o loop mas preciso fazer o registro funcionar primeiro.





**EDIT 2 **

Já consegui implementar o registro, eu só estou tentando agora filtrar automaticamente pela data nova.

Segue o código atualizado:

Private Sub Comando23_Click()

Dim dbNCW6b As DAO.Database
Dim rsttblInvestigations As DAO.Recordset
Dim nomeArea As Integer
Dim contador As Integer
contador = 1


Set rs = CurrentDb.OpenRecordset("SELECT * FROM [tblLevel]")

For contador = 1 To 43

rs.AddNew
rs("Pesquisar_em_tblArea").Value = contador
rs("Data").Value = DateTime.Date
rs("Pesquisar_em_tblColaborador").Value = Form_tblColaborador.CÓDIGO
rs.Update


Next contador

Form_tblColaborador.Requery
DoCmd.SelectObject acForm, "tblColaborador", False
DoCmd.GoToControl "Filho12"



End Sub

E ai pessoal, alguém consegue me ajudar ?

Por enquanto eu só preciso fazer esse filtro da combobox por data funcionar, a ideia é selecionar um valor na combobox e ela filtrar a minha subform pela data escolhida.

Parece bem simples mas não estou conseguindo, eu consegui aplicar filtro automático pelo Dia atual mas querem com a combobox mesmo.

Se alguém souber a resposta eu fico agradecido,

Att,
Pedro