Select para ranking

[Guest --Irenko --]

TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic

Com a query acima eu busco a OS com o maior valor e apresento o resultado. Acontece o seguinte, tenho as OS:

135421 - 10.000,00

135433 - 12.500,00

135444 - 1.000,00

135466 - 1.500,00

Bom acima no ranking esta a OS 135433 com 12.500,00 porem todas são do grupo (1354), como faria para buscar os grupos identicos e somar seus valores pesquisando os quatro primeiros dígitos e dando o resultado de 25.000,00?

Segue abaixo o código completo:

Sub TelaIndice()

AtivaIcon

Dim textranking As Integer

textranking = 3

Set TbResumo = New ADODB.Recordset

TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic

Do While Not TbResumo.EOF

If textranking = 3 Then

Label92.Caption = TbResumo("OS")

Label105.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

If textranking = 2 Then

Label93.Caption = TbResumo("OS")

Label106.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

If textranking = 1 Then

Label94.Caption = TbResumo("OS")

Label107.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

If textranking = 0 Then

Label95.Caption = TbResumo("OS")

Label108.Caption = Format(TbResumo("Total"), "#,##0.00")

End If

textranking = (textranking - 1)

TbResumo.MoveNext

Loop

'Fecha recordset

TbResumo.Close

Set TbResumo = Nothing

Call Gerar

End Sub