Enregistrement dans la base données access

Bonjour, je vous joint ici mon programme qui sert à enregistrer des données remplies dans les textbox dans une base données nommée BDPOMPES dans une table nommée POMPES.
Lorsque j'execute je reçois le message bien enregistrer, pourtant rien n'etait enregistrer dans ma base de données.
Merci de m'aider à détecter ce qui manque de mon programme

Private Sub ENREGISTRER_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ENREGISTRER_.Click

        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\BDPOMPES.accdb")

        Dim cmd As New OleDbCommand(" select * from POMPES", cn)
        cn.Open()
        Dim da As New OleDbDataAdapter(cmd)
        Dim ds As New DataSet

        da.Fill(ds, "POMPES")
        Dim dtr As DataRow
        dtr = ds.Tables("POMPES").NewRow

        dtr("MARQUE") = Me.TextBox4.Text
        dtr("SERIE") = Me.TextBox5.Text
        dtr("Diamètre") = Me.TextBox6.Text
        dtr("Vitesse tr/min") = Me.ComboBox1.Text
        dtr("H1") = Me.TextBox41.Text
        dtr("H2") = Me.TextBox40.Text
        dtr("H3") = Me.TextBox39.Text
        dtr("H(qmax)") = Me.TextBox35.Text
        dtr("Q2") = Me.TextBox37.Text
        dtr("Q3") = Me.TextBox36.Text
        dtr("Qmax") = Me.TextBox34.Text
        dtr("Dmax") = Me.TextBox11.Text
        dtr("Dmin") = Me.TextBox10.Text
        dtr("a") = Me.TextBox3.Text
        dtr("b") = Me.TextBox2.Text
        dtr("c") = Me.TextBox1.Text

        Dim CMBD As New OleDbCommandBuilder(da)
        da.Update(ds, "POMPES")
        ds.Clear()
        da.Fill(ds, "POMPES")
        Dim dtt As New DataTable
        dtt = ds.Tables("POMPES")
        MsgBox("Votre pompe est bien enregistrée")

    End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.