¿ayuda: Sumar columna de un dbgrid?

[principefreddy]

ya solucione una parte. coloque un datagrid

y cree un boton y un texto. aqui esta

Private Sub sumar_Click()
Dim I As Integer
Dim Val1 As Double
Dim Formato As String
txttotal.Text = " "
Formato = "###,####.00"
For I = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = I
Val1 = Val1 + CDbl(DataGrid1.Columns(1))
Next I
txttotal.Text = Format(Val1, Formato)
End Sub