Boa tarde, amigos.

Tenho uma dúvida. Em meu projeto, estou tentanto utilizar um ComboBox no formulário que é comum a vários campos em uma tabela. O usuário seleciona uma informação a partir de um filtro em outra Combo e dependendo da seleção, o sistema deveria carregar as informações referentes ao valor selecionado.

Ex: No filtro, o usuário pode selecionar processador, memória ou hd. Na segunda Combo a informação que deve ser carregada refere-se ao processador, memória ou hd, dependendo do que o usuário selecione.

 

Pois bem. Aqui está o meu problema. Estou tentanto utilizar uma variável para substituir o campo da tabela mas não estou acertando a sintaxe. E também não sei se é possível. Segue abaixo o código que estou utilizando, sem sucesso:

 

Dim Cmpo As New ADODB.Recordset
   
        Cmpo.Open "select count(*) as qde from equipamento", Banco
        If Cmpo("qde") > 0 Then
            Cmpo.Close
            Cmpo.Open "select distinct('" & Cmp & "') from equipamento order by '" & Cmp & "'processador", Banco
            Cmpo.MoveMin
            CBoxOrigem.Clear
            Do While Not (Cmpo.EOF)
                CBoxOrigem.AddItem Cmpo(0)
                Cmpo.MoveNext
            Loop
            Cmpo.Close
        Else
            Cmpo.Close
        End If

 

A variável Cmp deveria agir como substituto do nome do campo na tabela, mas não está funcionando. Se funcionar, evita que eu repita este código várias vezes, um para cada campo da tabela.

 

Será que alguém pode me dar uma luz?

 

Vlw pessoal!