Visual Basic - A. U X. I. L. I O COMO SUMAR LOS DATOS DE UN GRID

EL PROBLEMA QUE TENGO ES QUE EN BASE A UN SELECT LLENO UN GRID. ESTE GRID CONTIENE UNA VARIABLE QUE SE LLAMA CANTIDAD LA CUAL CONTIENE USUALMENTE EL VALOR DE 1.

SI LOS DATOS YA ESTAN EN EL GRID COMO GENERO UNA FUNCION QUE SUME LOS VALORES DE TODA LA COLUMNA CANTIDAD, DE DICHO GRID.

ESPERO QUE ALGUIEN PUEDA AYUDARME.
SALUDOS.

Utiliza el msflexgrid que es mas flexible y lo puedes cargar por codigo
Private Sub Clear_flexGrid()
' Total de Columnas
flexGrid.Clear: flexGrid.Cols = 3 : flexGrid.Rows = 1
With flexGrid
' Estrechar la primera columna.
.ColWidth(0) = 300: .ColAlignment(0) = flexAlignCenterCenter
.ColWidth(1) = 1000
.TextArray(0, 1) = "Campo1": .ColAlignment(1) = flexAlignLeftCenter
.ColWidth(2) = 3000
.TextArray(0, 2) = "Campo2": .ColAlignment(2) = flexAlignLeftCenter
End With
End Sub
Private Sub Load_flexGrid()
Dim wCantidad As Integer
Call Clear_flexGrid
If rs.RecordCount > 0 Then rs.MoveFirst
I = 1: Cantidad = 0
If rs.EOF And rs.BOF Then
flexGrid.Rows = flexGrid.Rows + 1
Else
Do Until rsProv.EOF
With flexGrid
.Rows = .Rows + 1
.TextMatrix(I, 1) = rsProv!Campo1
.TextMatrix(I, 2) = rsProv!Campo2
Cantidad = Cantidad = rsProv!Campo2
End With
I = I + 1
rsProv.MoveNext
Loop
With flexGrid
.Rows = .Rows + 1
.TextMatrix(I, 1) = "Total"
.TextMatrix(I, 2) = Format(wCantidad, "##,###,##0")
End With
End If
End Sub
Saludos desde Lima Peru, separa las lineas

Utiliza el msflexgrid que es mas flexible y lo puedes cargar por codigo
Private Sub Clear_flexGrid()
' Total de Columnas
flexGrid.Clear: flexGrid.Cols = 3 : flexGrid.Rows = 1
With flexGrid
' Estrechar la primera columna.
.ColWidth(0) = 300: .ColAlignment(0) = flexAlignCenterCenter
.ColWidth(1) = 1000
.TextArray(0, 1) = "Campo1": .ColAlignment(1) = flexAlignLeftCenter
.ColWidth(2) = 3000
.TextArray(0, 2) = "Campo2": .ColAlignment(2) = flexAlignLeftCenter
End With
End Sub
Private Sub Load_flexGrid()
Dim wCantidad As Integer
Call Clear_flexGrid
If rs.RecordCount > 0 Then rs.MoveFirst
I = 1: Cantidad = 0
If rs.EOF And rs.BOF Then
flexGrid.Rows = flexGrid.Rows + 1
Else
Do Until rsProv.EOF
With flexGrid
.Rows = .Rows + 1
.TextMatrix(I, 1) = rsProv!Campo1
.TextMatrix(I, 2) = rsProv!Campo2
Cantidad = Cantidad = rsProv!Campo2
End With
I = I + 1
rsProv.MoveNext
Loop
With flexGrid
.Rows = .Rows + 1
.TextMatrix(I, 1) = "Total"
.TextMatrix(I, 2) = Format(wCantidad, "##,###,##0")
End With
End If
End Sub
Saludos desde Lima Peru, separa las lineas