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 
 
  