objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
        objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Daten", _
          objConnection)
        objDataAdapter.Fill(objDataSet, "Daten")
        objDataView = New DataView(objDataSet.Tables("Daten"))
        objDataView.Sort = "Name"
        With Me
            .ListBox1.DataSource = objDataView
            .ListBox1.DisplayMember = "Name"
        End With
        PictureBox1.DataBindings.Add("Tag", objDataSet, "Daten.Front")
        PictureBox4.DataBindings.Add("Tag", objDataSet, "Daten.Back")
        Label14.DataBindings.Add("Text", objDataView, "Nr")
        Label15.DataBindings.Add("Text", objDataView, "Discs")
        Label16.DataBindings.Add("Text", objDataView, "Genre")
        Label17.DataBindings.Add("Text", objDataView, "Sprache")
        Label18.DataBindings.Add("Text", objDataView, "Spielzeit")
        Label19.DataBindings.Add("Text", objDataView, "FSK")
        Label20.DataBindings.Add("Text", objDataView, "Qualität")
        Label21.DataBindings.Add("Text", objDataView, "Format")
        Label22.DataBindings.Add("Text", objDataView, "Tonformat")
        Label26.DataBindings.Add("Text", objDataView, "ErscheinungsDatum")
        Label45.DataBindings.Add("Text", objDataView, "ErscheinungsLand")
        RichTextBox1.DataBindings.Add("Text", objDataView, "Regisseur")
        RichTextBox2.DataBindings.Add("Text", objDataView, "Darsteller")
        RichTextBox3.DataBindings.Add("Text", objDataView, "Beschreibung")
        TextBox7.DataBindings.Add("text", objDataView, "Front")
        TextBox8.DataBindings.Add("text", objDataView, "Back")
        objConnection.Close()]