[VB.NET] somma da database access in textbox

[Ricofede85]

Salve,
sto realizzando un applicazione che possa gestire un file access esterno.
Fino ad ora, grazie soprattutto al vostro aiuto, sono riuscito a caricare i dati su un datagridview, da quest'ultimo posso aggiungere dei record tramite delle textbox.
Quello che vorrei riuscire ad ottenere è una textbox (nel mio caso textbox4) che in fase di caricamento della form mi visualizzi la somma dei campi "quantità" appartenenti alla tabella "fede" nel file "prova2".
Cosa ancora più straordinaria sarebbe quella di applicare anche un filtro a questa somma tramite un'altro campo della stessa tabella.
Spero di essere stato comprensibile..
Grazie in anticipo e scusatemi per eventuali errori grossolani di programmazione...

Imports System.Data.OleDb

Public Class Form1
    Private Sub aggiorna()
        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Federico\Desktop\prova2.accdb;Persist Security Info=False;")

        Dim sql As String = "SELECT id, nome, quantità, scarica FROM fede ORDER BY quantità"
        Dim query As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, cn)
        Dim ds As DataSet = New DataSet()
        cn.Open()
        query.Fill(ds)

        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = ds.Tables(0)

        cn.Close()
        cn.Dispose()
        cn = Nothing
    
End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        aggiorna()

     End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aggiungi.Click
        Using cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Federico\Desktop\prova2.accdb;Persist Security Info=False;")

cn.Open()

Dim cminserisci As New OleDbCommand("INSERT INTO fede (id, nome, quantità, scarica) VALUES(?, ?,?, ?)", cn)

cminserisci.Parameters.Add(New OleDb.OleDbParameter("@id", OleDb.OleDbType.Integer))
cminserisci.Parameters.Add(New OleDb.OleDbParameter("@nome", OleDb.OleDbType.VarWChar))
cminserisci.Parameters.Add(New OleDb.OleDbParameter("@quantità", OleDb.OleDbType.Integer))
cminserisci.Parameters.Add(New OleDb.OleDbParameter("@scarica", OleDb.OleDbType.Boolean))

            cminserisci.Parameters(0).Value = TextBox1.Text
            cminserisci.Parameters(1).Value = TextBox2.Text
            cminserisci.Parameters(2).Value = TextBox3.Text
            cminserisci.Parameters(3).Value = CheckBox1.Checked

            cminserisci.ExecuteNonQuery()
            cn.Close()
            aggiorna()
        End Using
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.FedeTableAdapter.Fill(Me.Prova2DataSet.fede)
    End Sub
End Class