Visual Basic - urgente ! necesito terminar el programa

necesito ayuda para realizar que en un listview me sume los precios de la ultima columna.

o tienen alguna otra opcion en la cual pueda agregar una lista donde se especifique el nombre del productoo y se vayan sumando los precios y mee los valla insertando en un label.

espero me puedan ayudar ya que es de suma mportancia para mi proyecto final.. gracias

La primera, al cargar el ListView desde un Recordset:
Dim SumaTotal As Double
SumaTotal = 0
ListView1.ListItems.Clear
rs.MoveFirst
Do While Not rs.EOF
With ListView1.ListItems.Add(, , rs.Fields("0))
.SubItems(1) = rs.Fields(1)
.SubItems(2) = rs.Fields(2)
.SubItems(3) = rs.Fields(3)
.SubItems(4) = rs.Fields(4)
.SubItems(5) = rs.Fields(5)
.SubItems(6) = Format$(rs.Fields(6), "#,##0")
.SubItems(7) = Format$(rs.Fields(7), "#,##0.00")
End With
SumaTotal = SumaTotal + rs.Fields(7)
rs.MoveNext
Loop
Label1.Caption = Format(SumaTotal, "#,##0.00")
---
La segunda, si ya está cargado el ListView
Dim SumaTotal As Double
SumaTotal = 0
For i = 1 To ListView1.ListItems.Count
SumaTotal = SumaTotal + ListView1.ListItems(i).SubItems(7)
Next i
Label1.Caption = Format(SumaTotal, "#,##0.00")
---
Saludos

muchisimas gracias hee.!!!


me sirvio de mucho. solamente era cuestion de cambiar los nombres. muchas gracias por tu ayuda...!!!