Claro, como lo dijo Angel k ido, tengo que sumar las filas segun el criterio, en este caso, la "fecha".
Lo que he hecho ahora, con lo que me dio Francisco, me suma toda la columna con este codigo
Private Sub Command2_Click()
Dim SumaCANT, i As Double
For i = 1 To Me.DataGrid1.ApproxCount
SumaCANT = SumaCANT + val(Me.DataGrid1.Columns(5).CellValue(i))
Next i
Me.TxtTotalCANT.Text = SumaCANT
End Sub
Solo me hace falta sumar con un criterio, en mi caso, la celda que tiene el criterio es fecha y hora "(14/11/2006 14:07:47)", De lo necesito tomar solo la fecha, por ejemplo el dia 14.
Seether