[Resolvido]Combos sinronizadas

Boa noite

Estou tentando fazer a sincronização de duas combobox de um formulário, seguindo orientação do Avelino Sampaio(Usando Access), mas não estou conseguindo.
É no Formulário Compras, campos: Classificação e Produtos.
Alguém se dispõe a me auxiliar?
Embaixo o arquivo anexado.


https://dl.dropboxusercontent.com/u/52861189/Boticafar.zip

Ola;

O código está incorreto, altere para esta correção;

Código:

Private Sub CboClassficaçao_AfterUpdate()
Dim strSql As String

    strSql = "Select Classificaçao, Insumo FROM TabInsumos"
    strSql = strSql & " Where Classificaçao = " & Val(Nz(Me.CboClassficaçao.Column(0), 0))

        Me!CboInsumo.RowSource = strSql
        Me!CboInsumo.SetFocus
        Me!CboInsumo.Dropdown
End Sub

Bom dia JPaulo

Agradeço a atenção, mas não consegui que funcionasse.
Fiz exatamente o que aconselhaste, mas no campo Insumo não aparece nenhuma palavra, como se não tivesse nada na tabela Insumos.
Antes que haja algum esquecimento, um Feliz Ano Novo para ti e tua família.

Aguardo orientações.

Fiz aqui e funcionou em pleno;

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

Feliz Ano Novo também para ti e tua família.

Bom dia.
Se o Mestre JPaulo permite.
Já havia pego o exemplo dele e fiz algumas alterações.
Segue o alterado. Acho que ficou melhor de trabalhar desta forma e mais profissional.
Papapo, estude as alterações que fiz e adapte ao seu sistema.
Utilizei um relatório no formulário para melhor exibição.

Veja se ajuda.

Abraços e Feliz Ano Novo á todos os companheiros do Melhor Fórum do Mundo!!

Bom dia

Agradeço muitíssimo. Depois falamos.
Grande abraço.

Vamos aguardar.
Abraço