TextBox6.DataBindings.Add("Text", objDataView, "Name")
        TextBox9.DataBindings.Add("Text", objDataView, "Nr")
        ComboBox1.DataBindings.Add("Text", objDataView, "Discs")
        ComboBox2.DataBindings.Add("Text", objDataView, "Genre")
        ComboBox3.DataBindings.Add("Text", objDataView, "Sprache")
        TextBox3.DataBindings.Add("Text", objDataView, "Spielzeit")
        TextBox2.DataBindings.Add("Text", objDataView, "FSK")
        ComboBox4.DataBindings.Add("Text", objDataView, "Qualität")
        ComboBox5.DataBindings.Add("Text", objDataView, "Format")
        ComboBox6.DataBindings.Add("Text", objDataView, "Tonformat")
        TextBox1.DataBindings.Add("Text", objDataView, "ErscheinungsDatum")
        TextBox10.DataBindings.Add("Text", objDataView, "ErscheinungsLand")
        TextBox4.DataBindings.Add("Text", objDataView, "Regisseur")
        TextBox5.DataBindings.Add("Text", objDataView, "Darsteller")
        RichTextBox4.DataBindings.Add("Text", objDataView, "Beschreibung")

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
 
 
        'Dim cb As New OleDb.OleDbCommandBuilder(objDataAdapter)
 
 
        ' Me.BindingContext(objDataSet).EndCurrentEdit()
 
 
 
 
        'objDataAdapter.Update(objDataSet, "Daten")
 
 
 
        Dim builder As OleDb.OleDbCommandBuilder = New _
          OleDb.OleDbCommandBuilder(objDataAdapter)
        objDataAdapter.Update(objDataSet, "Daten")
        CType(BindingContext(objDataView).Current, _
          DataRowView).Row.AcceptChanges()
    End Sub