Filtrar por duas combox em RowSource

Boa noite estou com dois problema.
Falo com vocês que eu pesquisei e teve varios, mas nenhum obtive sucesso.
tenho a tabela para cada produto e filtro por 2  combox eu tenho mais, mas acho que so esse dois ja consigo fazer o restante.

Produto

Medidas

Primeiro é filtrar a cboPrudutopara que no segundo combox já venha somente as medidas do produto que foi filtrado
Segundo Não consigo filtrar com os dois.
esse código e do segundo.

Código:

Me.listar_preco.RowSource = "SELECT tblProdutos.Código, tblProdutos.Produto, " & _
    "tblProdutos.unidade, tblProdutos.PrecoFinal, tblProdutos.Parcelamento, tblProdutos.lucro, tblProdutos.num_categoria " & _
    "FROM tblProdutos " & _
    "WHERE tblProdutos =" & Me.listar_preco.Column(1) & " AND Medida =" & Me.listar_preco.Column(0) & "'"
         Me.listar_preco.Requery

Bom dia. Vixi Alexandre ao consertar o código aqui eu deletei o nome sem querer. Mas continua no erro
Não queria separa a tabelas para fazer os relacionamentos, e somente puxasse pelo valor que tem na cbo (value), estava pensado que puxasse a medido do produto filtrado desisti disso.

Não deu, a order by também, só está funcionando na linha de origem

Bom dia a todos!

O que gostaria de entender na questão é: se queres que ao clicar no produto da listBox as combos sejam preenchidas com as informações para as quais estão designadas ou quer que o filtro seja pelas combos, ao selecionar combo medida, por exemplo, liste os produtos com a mesma medida?

BOa tarde.
A montagem que você fez está dando problema com ( impossivel de localizar o projeto)
Tentei mudar com o código acima, Nº1

Só a order by da errado.
Em todos os métodos ja tentei
Dim strSQL As String
strSQL = "SELECT tblProdutos.Código, tblProdutos.Produto, tblProdutos.Cores, tblProdutos.Medida, tblProdutos.unidade, tblProdutos.PrecoFinal, tblProdutos.Parcelamento, tblProdutos.lucro, tblProdutos.num_categoria " & _
"FROM tblProdutos " & _
"WHERE tblProdutos.num_categoria = " & Me.cbo_listar_produto.Column(1) & " AND tblProdutos.Medida = '" & Me.cboMedida.Column(1) & "' " & _
"ORDER BY tblProdutos.Medida"

Me.listar_preco.RowSource = strSQL
Me.listar_preco.Requery


Nem com Sql funciona. Se eu colocar mais campos ele não junta.
SELECT DISTINCT tbl_categoria.categoria, tblProdutos.num_categoria, tblProdutosCores, tblProdutos.Medidas e assim vai
FROM tbl_categoria INNER JOIN tblProdutos ON tbl_categoria.Código = tblProdutos.num_categoria;