Visual Basic - SUMAR LAS FILAS DE UN DBGRID

ESTOY APREDIENDO A USAR QUISIERA SABER SI VOS ME PODRIAS AYUDAR EN LO SIGUIENTE: QUISIERA QUE EN UN DBGRID SUMAR LAS FILAS QUE ESTAN EN ESTE PERO NO EN TODA LA BASE DE DATOS TE EXPLICO, EN EL PROGRAMA QUE ESTOY HACIENDO HAGO UNA BUSQUEDA SENSITIVA POR NOMBRE DE CLIENTE, AL IR HACIENDO EN EL DBGRID EL NOMBRE ESCRITO, QUISIERA QUE AUTOMATICAMENTE ME VAYA SUMANDO EN UN TEXT O LABEL EL IMPORTE DE ESTOS,

DESDE YA MUCHAS GRACIAS SI ME PUEDES AYUDAR

ATTE MARCOS.G.CH

Este es un codigo para recoger los recordsets de un nombre cualquiera que se encuentra en text4. Este mismo es el que alimenta un datagrid y en el text9 va quedando el valor total de la suma de las filas total del recordset.
Esto es para totalizar los diferentes gastos de una persona.
Que debes hacer ?
1) La conexion ==> cnn
2) Alimentar los recordset de la grilla como para alimentar a text9, con el codigo que te doy.
espero te sirva.

Private Sub sumaValor()
Set rstTotalValor = New ADODB.Recordset
rstTotalValor.CursorLocation = adUseClient
rstTotalValor.Open "SELECT Sum(valor)AS [Total Valor ] FROM Tabla_Estadistica WHERE Tabla_Estadistica.nombre = '" & Text4.Text & "'", cnn, adOpenDynamic, adLockPessimistic
If rstTotalValor.RecordCount > 0 Then
Text9.Text = rstTotalValor![Total Valor ]
Else
Text9.Text = 0
End If
End Sub

Groval gracias por responder a mi pedido
aun estoy intentando hacer funcionar el codigo
que me enviaste,como todavias soy un novato en esto
aun me falta mucho por saber, me manda un error 3001
es porque dice que los argumentos son incorrectos o
hay un intervalo no permitido,aun no se como se
hace la conexion cnn que me pides,pero en cuanto
lo haya averiguado te lo hago saber como me fue,
en tanto te paso unas sentecias y los campos que uso
como para que me puedas ayudar con el codigo

esto lo uso para hacer la busqueda sensitiva
Private Sub Text1_Change()
prueba = Text1.Text
Data1.RecordSource = "select * from Consulta_VENTACLIENTES where [NOMBRE] like '" & prueba & "*'"
Data1.Refresh
End Sub

esta sentencias me permitia sumar toda la base de datos
Data1.RecordSource = "Select Sum(SUBTOTAL) from Consulta_VENTACLIENTES

estos son los campos que utilizo
id- nombre- iddeproducto- descrip.- cantidad- importe- subtotal

desde ya si me puedes ayudar con esto te lo agradeceria

te saluda atte Marcos