Bom dia!

Tenho uma consulta que me insere dados numa listbox. Desejo que os valores contidos na consulta sejam automaticamente somados e apresentados numa textbox. A quem responder, obrigado.

quando vc carregar o grid coloque por ultimo o seguinte

 

Dim Soma As Double

For f = 0 To List1.ListCount - 1
Soma = Soma + List1.List(f)
Text1.Text = Soma
Next f