É parecida vaca... mas deixa eu corrigir a minha rotina...

 

Dim soma as currency

Dim i as Long

 

datagrid.col = 1 'no caso a coluna q vc quer pegar

for i = 0 to datagrid.approxcount - 1
   datagrid.row = i
   soma  = soma + ccur(datagrid.text)
next

achu q agora vai

 

t+