Visual Basic - Suma de registros

Hola amigos una consulta :
TABLA1
VENDEDOR TOTAL
A 500
A 500
B 100
C 200
A 500
B 100

TOTAL "A" = 500
TOTAL "B" = 100
TOTAL "C" = 200
GRAN TOTAL =800

DESEO QUE SUME EL TOTAL DE LOS GRUPOS = 800

set rs=Nothing

SQL = "SELECT Movimiento, SUM (Monto)AS SUMA FROM Movimiento Where Movimiento.Movimiento= 'Ingreso' AND Movimiento.Estado <> 'Pendiente'AND Movimiento.Banco = '" & Trim(CboBanco.Text) & "'AND ((Movimiento.Fecha) Between #" & Format(FI, "MM/dd/yyyy") & "# AND #" & Format(FF, "MM/dd/yyyy") & "#) Group By Movimiento"
Rs.Open SQL, Cn, adOpenDynamic, adLockOptimistic
If Rs.EOF = True Then
TxtTotalIngresos.Text = "0"
Else
TxtTotalIngresos.Text = Format(Rs.Fields("Suma"), "###,##")
End If
Set Rs = Nothing

yo ocupo este y funciona perfecto.

dudas por mail o por msn, (es este mismo mail)