Visual Basic - Access Datenbank löschen

Hallo,

ich versuche in Visual Basic 2008 beim Beenden einer Form den Inhalt 
einer  Datenbank zu löschen.
Leider bekomme ich die Datensätze nur kurzzeitig gelöscht, das heisst 
wenn ich den Button1 drücke werden sämtliche Einträge der Datenbank 
gelöscht - so wie es sein soll! Nur wenn ich das Programm neu starte 
sind die Datensätze wieder da - was nicht sein soll!

Ich hoffe ihr habt da eine Lösung für!

Gruß, Ben



    Private Sub Tabelle1BindingNavigatorSaveItem_Click(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles 
Tabelle1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Tabelle1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.GMADataSet)

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
"GMADataSet.Tabelle1". Sie können sie bei Bedarf verschieben oder 
entfernen.
        Me.Tabelle1TableAdapter.Fill(Me.GMADataSet.Tabelle1)

    End Sub

    Private Sub Messung_2TextBox_TextChanged(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles Messung_2TextBox.TextChanged

        If Val(Messung_2TextBox.Text) >= Val(Messung_1TextBox.Text) Then
            MaximalwertTextBox.Text = Val(Messung_2TextBox.Text)
        Else
            MaximalwertTextBox.Text = Val(Messung_1TextBox.Text)
        End If

    End Sub

    Private Sub Messung_1TextBox_TextChanged(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles Messung_1TextBox.TextChanged

        If Val(Messung_2TextBox.Text) >= Val(Messung_1TextBox.Text) Then
            MaximalwertTextBox.Text = Val(Messung_2TextBox.Text)
        Else
            MaximalwertTextBox.Text = Val(Messung_1TextBox.Text)
        End If

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        GMADataSet.Tabelle1.Clear()

    End Sub