Sub speichern()
        Dim Row As DataRow = objDataSet.Tables("Daten").NewRow()
        With Row
            .Item("Nr") = TextBox9.Text
            .Item("Name") = TextBox6.Text
            .Item("Beschreibung") = RichTextBox4.Text
            .Item("Discs") = ComboBox1.Text
            .Item("Qualität") = ComboBox4.Text
            .Item("Genre") = ComboBox2.Text
            .Item("Format") = ComboBox5.Text
            .Item("Spielzeit") = TextBox3.Text
            .Item("FSK") = TextBox2.Text
            .Item("Sprache") = ComboBox3.Text
            .Item("Regisseur") = TextBox4.Text
            .Item("Darsteller") = TextBox5.Text
            .Item("Tonformat") = ComboBox6.Text
            .Item("ErscheinungsDatum") = TextBox1.Text
            .Item("ErscheinungsLand") = TextBox10.Text
            ' .Item("Front") = Puffer
        End With
        Dim cb As New OleDb.OleDbCommandBuilder(objDataAdapter)
        Me.BindingContext(objDataSet).EndCurrentEdit()
        objDataSet.Tables("Daten").Rows.Add(Row)
        objDataAdapter.Update(objDataSet, "Daten")