Colegas, conforme abaixo estou com dificuldades para montar essa SQL, alguem pode me dar uma sugestão?

 

Set TbRanking = BdBaixas.OpenRecordset("SELECT TOP 1 OS FROM Dados WHERE OS = '" & TbCliente("Numero") & "'", dbOpenSnapshot)
Do While Not TbRanking.EOF
Primeiro = TbRanking("OS")
Plan1.Range("C4") = Primeiro

A instrução acima me retorna na C4 a maior OS e o que eu gostaria é a OS com o mair Valor que é carregado com a instrução abaixo:

Set TbGasto = BdBaixas.OpenRecordset("SELECT Sum(Quant*Unit) AS Total FROM Dados WHERE OS = '" & TbCliente("Numero") & "'", dbOpenSnapshot)
Plan1.Range("E" & Ln3 - 1) = TbGasto("Total")

Irenko, pelo o que entendi tente assim, usando a função Max().

 

Set TbRanking = BdBaixas.OpenRecordset("SELECT max(Quant*Unit) FROM Dados WHERE OS = '" & TbCliente("Numero") & "'", dbOpenSnapshot)

 

 

Tentei a sua sugestão, quase deu certo. A instrução buscou o valor da maior OS e não a OS que tem o maior valor, ex.:

 

90199 R$3,52

 

O que preciso é:

30152  R$2000,00

 

 

Irenko, vc. tem que colocar na função max() o valor que vc. quer que seja o maior, neste caso o valor da OS.:

ex: se vc. quer o maior numero de OS -> max(OS)

     se vc. quer o maior valor das OS  -> max(valor)

 

pode por que funciona..;)