[Resolvido]DoCmd.ApplyFilter dando erro ao selecionar na combobox

Boa tarde amigos.

Espero que aqui seja o lugar correto para postar a minha dúvida.
Meu intento é ter uma combobox num formulário apenas para fazer consultas.
Anexei 2 arquivos, sendo que o _1 funciona mas não sei como evitar repetições na combobox.
No arquivo _2 eu coloquei apenas um campo na consulta e coloquei Agrupar por. OK, o combobox evitou as repetições, porém o VBA gera um erro que não consigo eliminar.
Já fiz diversas tentativas, mas infelizmente não consegui.
Alguém poderia verificar onde estou "errando"? Teria uma alternativa melhor para fazer a mesma coisa?
Sou novato em VBA e se pudessem postar algum código seria muito bom.
Obrigado a todos.

Arquivo _2.

Ola;

O primeiro exemplo funciona, mas no SQL da Combo terá de fazer assim;

Código:

SELECT Max([tbCircIntegrados]![CodCircIntegrado]) AS CodCircIntegrado, tbCircIntegrados.Identificacao
FROM tbCircIntegrados
GROUP BY tbCircIntegrados.Identificacao
ORDER BY tbCircIntegrados.Identificacao;


http://dl.dropboxusercontent.com/u/771097/Componentes_1_OLD.zip

Muito obrigado JPaulo.

Solução simples ao que me parecia complicado.

No entanto, descobri também que uma sutileza na montagem do filtro era a causa do problema.

Código:

Ident = "Identificacao = " & "'" & Me.cboConsulta.Column(0) & "'"

A inserção das aspas simples (ou apóstrofos) na string resolveu o caso.

Mas a forma apresentada por você é muitíssimo interessante também, especialmente para quem está aprendendo como eu.

Mas pergunto ao amigo o porquê da função Máx() no SELECT?

Muito obrigado.

Ola;

Como você tem a mesma "Identificacao" com varios "CodCircIntegrado", vamos buscar o valor Máximo do "CodCircIntegrado" para não repetir a "Identificacao", agrupando sempre o SQL.

Ok. Entendido.

Obrigado!