Galera preciso somar uma coluna de um datagrid, ao clicar em um botão.
Consegui este código, o que acontece é que este código soma toda a coluna da tabela, e apenas quero a soma da coluna do Datagrid.
Private Sub CmdSoma_Click()
Dim dSoma As Double
dSoma = 0
For i = 0 To Me.DataGrid1.VisibleRows - 1
DataGrid1.Row = i
dSoma = dSoma + CDbl(Me.DataGrid1.Columns(0))
Next i
MsgBox "Total: " & dSoma
End Sub
