Cita:
Iniciado por 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
¿Pero en qué quedamos, estás utilizando un DataGrid o un DBGrid, ADO o DAO?
Y aunque sea con ADO, puedes utilizar la misma consulta que puse, sin necesidad de recorrer todas las filas del DataGrid.
