الكود التالي يمكنك من حساب مجموع قيم حقل ويضع المجموع في تيكست بوكس قد يفيدك .
كود :
Dim cmd As New OleDbCommand("Select SUM(اسم الحقل العددي) From اسم الجدول", con)
Dim dt As New DataTable
con.Open()
TextBox1.Text = cmd.ExecuteScalar
con.Close()