nao sei se entendi bem o que tu precisa, mas creio que tu precisa de um codigo que determine o menor valor e nao duplique determinado valor
valor_v = Request.Querystring("01") 'recebe o valor para comparação
produto_v = Request.Querystring("02") 'recebe o produto para comparação
'inicia conexao com o record
Sql_TB01 = "select * from 01 Where valor < '" & valor_v & "' Order By fornecedor "
set Sql_TB01=conntemp.execute(Sql_TB01)
If Sql_TB01.eof = false then 'verifica se ha dados no record
Do until Sql_TB01.eof
If Sql_TB01("produto") = produto_v then ' lista somente o produto desejado
If InStr(1,val_fornecedor,Sql_TB01("fornecedor"),1) then ´faz a comparacao e nao deixa repetir o fornecedor
Else
val_fornecedor = val_fornecedor & ";" & Sql_TB01("fornecedor") ' agrupa o nome do forbnecedor recomendo que tu use um codigo no lugar o nome
var_1 = Sql_TB01("fornecedor")
var_2 = Sql_TB01("produto")
var_3 = Sql_TB01("valor")
End if
End if
Sql_TB01.MoveNext
loop
End if
observa que onde coloquei fornecedor podes substituir por qualquer outro valor que nao possa ser repetido
Espero ter te ajudado
Boa sorte