[سعود]

لو القيم من جدول بالقاعدة فالافضل استخدام sum لانها اضمن

كود :

select sum(col) from tb

وتسندها لـ oledbcommand وتقراها هكذا

كود :

textbox1.text= cm.executescalar

---

وممكن كذا

كود :

Dim i As Integer
        For a = 0 To ListBox1.Items.Count - 1
            i += ListBox1.Items.Item(a)
        Next
        TextBox1.Text = i