Nao calcula dbgrid

[Charles Martins 0]

Tenho esse codigo para calcular a coluna de um dbgrid no vb6,

porem nao consigo calcular todas as linhas, so soma as linhas que sao visiveis,

 

Dim dSoma As Double
		dSoma = 0
		For i = 0 To Me.dbgDiesel.VisibleRows - 1
		dbgDiesel.Row = i
		dSoma = dSoma + CDbl(Me.dbgDiesel.Columns(3))
	Next i
		lblTot.Caption = Format(dSoma, "##,###,###ml")

alguem poderia me da uma força

[Claudio Neto 3]

Não costumo trabalhar com dbGrid, mas isso é o que com certeza está fazendo com que só some as linhas visíveis:

 

Me.dbgDiesel.VisibleRows

Não há a propriedade .rows para dbgrid?