Consulta bem complicada

Aê gente, bão? Seguinte, tenho uma tabela de produtos onde há os campos: fornecedor | agrupamento | tipo

Nessa tabela, os campos "fornecedor" e "tipo" recebem códigos vindos de outras tabelas e o "agrupamento" é texto mesmo. Então para que a consulta exiba os dados fiz assim

<%strQuery = "SELECT codigo,fornecedor,agrupamento,tipo,descricao,padrao FROM produtos ORDER BY fornecedor,agrupamento,tipo"Set objRs = objConn.execute(strQuery) While not objRs.EOF	codigo = objRs("codigo")	fornecedor = objRs("fornecedor")	tipo = objRs("tipo")	descricao = objRs("descricao")	padrao = objRs("padrao")strQuery2 = "SELECT cod_produto,qtde_r,qtde_c,local FROM estoque WHERE cod_produto = "&codigoSet objRs2 = objConn.execute(strQuery2) strQuery3 = "SELECT SUM (qtde_r) AS total_r FROM estoque WHERE cod_produto = "&codigoSet objRs3 = objConn.execute(strQuery3)strQuery31 = "SELECT SUM (qtde_c) AS total_c FROM estoque WHERE cod_produto = "&codigoSet objRs31 = objConn.execute(strQuery31) strQuery4 = "SELECT fabrica,nome_fantasia FROM fornecedores WHERE codigo ="&fornecedor&""Set objRs4 = objConn.execute(strQuery4) strQuery5 = "SELECT tipo FROM tipos_produtos WHERE codigo = "&tipo&""Set objRs5 = objConn.execute(strQuery5)

A consulta funciona belezinha sem problema. O que rola é que preciso colocar em ordem alfabética como no primeiro SELECT, só que está com código nos campos então não está ordenando.

 

Estou pensando em repetir o primeiro SELECT mais abaixo, mas ainda tô meio confuso. Alguém pode me dar uma luz?