Group by - VBWEB

Dim strdata1 As String
Dim strdata2 As String
        strdata1 = InputBox("Digite a 1º Data", "Consultando Data")
            strdata2 = InputBox("Digite a 2º Data", "Consultando Data")
         adonavega.RecordSource = ""
     adonavega.CommandType = adCmdText

adonavega.RecordSource = "Select [data],[controle], [aliquota],sum(valor)as Valor, sum(imposto)as imposto from notas where data BETWEEN #" & Format(strdata1, "mm/dd/yyyy") & "# AND #" & Format(strdata2, "mm/dd/yyyy") & "# group by Dim strdata1 As String
Dim strdata2 As String
        strdata1 = InputBox("Digite a 1º Data", "Consultando Data")
            strdata2 = InputBox("Digite a 2º Data", "Consultando Data")
         adonavega.RecordSource = ""
     adonavega.CommandType = adCmdText
adonavega.RecordSource = "Select [data],[controle], [aliquota],sum(valor)as Valor, sum(imposto)as imposto from notas where data BETWEEN #" & Format(strdata1, "mm/dd/yyyy") & "# AND #" & Format(strdata2, "mm/dd/yyyy") & "# group by data,controle,aliquota"
adonavega.Refresh

Este codigo funciona perfeitamente mas nao faz o q quero, o q esta faltando?

Data Controle valor aliquota

01/04/04 01 100,00 12

01/04/2004 02 50,00 12

01/04/2004 03 100,00 19

01/04/2004 04 100,00 12

02/04/2004 05 60,00 12

o que quer é que ele me de a soma dos valores por ordem de controle e aliquota sendo que

controle 01 soma com 02 e me dar o resultado daquela aliquota

depois controle 03 me dar o valor de 100,00

depois controle 04 soma com 05 e me dar o total desses dois valor, vai somando

conforme sequencia de controle e aliquota..

espero q vc entenda...mesmo assim obrigado.

Elmo