[Resolvido]preencher caixa de listagem com código filtrado

Boa tarde,
Tenho uma tabela, mas gostaria de preencher uma caixa de listagem através de uma filtragem nesta tabela, por exemplo:
Relação de clientes e idade.
eu coloco em uma msgbox a idade desejada, e a caixa de listagem é preenchida somente com as pessoas de 20 anos de idade por exemplo (nome e idade).

Desde já agradeço.

juliocst

Olá, seja bem vindo ao forum! Eu colocaria um campo no formulário para digitar a idade, é mais apresentável do que InputBox. Pelo menos, eu acho. Bastaria, depois, colocar algo assim no evento "Após atualizar" desse campo ou no "Ao clicar" de um botão:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE DataNascimento=" & DateAdd("y", -Me.NomeDoCampoIdade, Date) & "")

Me.NomeDaList.RecordSource = ""
me.NomeDaList.RowSourceType = "value list"

Do While Not rs.EOF
Me.NomeDaList.AddItem rs!Campo1 & ";" & rs!Campo2
rs.MoveNext
Loop

rs.Close
Set rs = Notnhing

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.