Visual Basic - Agrupar registros y sumar enre estos grupos

Hola amigos una consulta :
tengo :
NOMBRE VENTA
A --> 1
A ---> 1
B ---> 2

k agrupe :
GRUPO
A ---> 1
B ---> 2
y k sume estos grupos, k para el ejemplo seria = 3

Gracias por la ayuda k puedan brindarme

pero en que lo tenes a eso? supongo q en una base de datos, en que? xq con una consulta SQL se puede hacer o si lo tenes en una grilla, habria qeu recorrerla y sumar y agrupar, decime bien como lo tenes

Amigo James,
Si el grupo "A" tiene dos registros con "VENTA" = 1, la suma de este grupo será 2 y el resultado total de ambos grupos = 4.
No sé si no entendí vuestra pregunta.

Hola Natalia, gracias x el comentario, bueno no es esa la respuesta sino:
El grupo "A" tiene dos registros con "VENTA"=1, NO DEBE DE SUMAR LOS REGISTROS DE UN MISMO GRUPO , SINO debe de agruparos y luego SE DEBE SUMAR ENTRE LOS DIFERENTES GRUPOS.
El grupo "B" tiene solo un integrante "VENTA"=2, entonces el resultado de ambos grupos es =3

Espero haerme explicado mejor . Gracias por als sugerencias Natalia.

james

Perdona mi torpeza, pero sigo sin entenderlo.
Si el campo "VENTA" del primer registro del Grupo "A" fuera 1 y el segundo 2 ( ó 3, 4 etc..), cual de ellos tomaría?

No t preocupes , gracias por ayudarme, en conclusion lo k necesito es:
1ro. Agrupar los registros que tienen el mismo NOMBRE y la misma VENTA
2do. Sumar las VENTAS entre los diferentes grupos (OJO: NO ENTRE LOS INTEGRANTES DEL GRUPO)

NOMBRE VENTA
A --> 1
A ---> 1
B ---> 2

ENTONCES KEDARIA ASI:
1RO. Se agruparon en lo siguiente :
GRUPO
A ---> 1
B ---> 2
2do. entonces la suma seria :
1+2 = 3

Gracias por la ayuda .

James

Bueno, a ver si así os sirve:

sql = "SELECT DISTINCT Nombre, Venta FROM Tabla1, (SELECT Sum(Venta) FROM Tabla1) "

Esta consulta la aplicais un recordset y para sacar el Total general lo haceis en un bucle While Not EOF sumando el campo Venta del recordset.

pERDONAME PERO NOENTIENDO BIEN LA ULTIMA PARTE del recordset y del bucle with.

Gracias.

No he podido contestar antes porque parece ser que la web tenía algun problema.
Suponemos que en vuestro Form teneis un control Label para mostrar el resultado total que quereis y la consulta la enlazais a un control Adodc, el código sería el siguiente:

Dim sql As String
Dim SumaTotal As Double
sql = "SELECT DISTINCT Nombre, Venta FROM Tabla1, (SELECT Sum(Venta) FROM Tabla1) "
Adodc1.RecordSource = sql
Adodc1.Refresh
Do Until Adodc1.Recordset.EOF
SumaTotal = SumaTotal + Adodc1.Recordset.Fields("Venta")
Adodc1.Recordset.MoveNext
Loop
Label1.Caption = SumaTotal

Nota: Si la consulta no la aplicais a un control Data sino a un recordset directamente, sustituid "Adodc1.Recordset" por el nombre que le hayais asignado al recordset y eliminar todas las referencias a Adodc1.