Especie de facturador

Private Sub cmdMostrarAreas_Click()
Dim ListItemAreas As ListItem
Dim promedio As Integer
CargarSelectAreas
With rstAreas
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados", vbInformation, "INFORMACION"
Else
cmdImprimir.Enabled = True
' Mostrar los datos hallados
ListView2.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set ListItemAreas = ListView2.ListItems.Add(, , .Fields("cod_area") & "")
ListItemAreas.SubItems(1) = .Fields("dsc_area") & ""
ListItemAreas.SubItems(2) = .Fields("Abiertos") & ""
ListItemAreas.SubItems(3) = .Fields("Cerrados") & ""
If .Fields("Cerrados") = 0 Then
promedio = 0
Else
promedio = .Fields("TotalTiempo") / .Fields("Cerrados")
End If
ListItemAreas.SubItems(4) = promedio & ""
.MoveNext
Loop
End If
End With
End Sub
Es mejor hacerlo con el listview... ya que el datagrid es para mostrar desde la base de datos ... pero no tiene mucha funcionalidad a la hora de hacer sumas y esas cosas.. entre los registros seleccionados...
Es más cómodo hacer el recordset y luego ir agregándolo sumando lo que haga falta al listview.
como me pides ejemplos de datagrid... Te paso algunas direcciones...
http://guille.costasol.net/indice.asp
http://www.geocities.com/vbp_es/index1.htm
http://www.geocities.com/vbp_es/index1.htm
http://personales.com/espana/granada/vbpedrojose/vbpedrojose.html
http://www.portalvb.com/
http://www.planet-source-code.com/
http://www.lorenzoservidor.com.ar/compu01/progra.htm

No quiero molestarte con tonteras pero no tendrías un ejemplo para poder orientarme con el manejo del datagrid. Desde ya muchas gracias. Diego (Mza).