Sub speichern()
        ' Image in einen MemoryStream schreiben
        Dim Front As MemoryStream = New IO.MemoryStream
        PictureBox3.Image.Save(Front, ImageFormat.Jpeg)
        Dim FrontCov(CInt(Front.Length) - 1) As Byte
        Front.Position = 0
        Front.Read(FrontCov, 0, Front.Length)
 
        ' Image in einen MemoryStream schreiben
        Dim Back As MemoryStream = New IO.MemoryStream
        PictureBox4.Image.Save(Back, ImageFormat.Jpeg)
        Dim BackCov(CInt(Back.Length) - 1) As Byte
        Back.Position = 0
        Back.Read(BackCov, 0, Back.Length)
 
 
 
        Try
 
            Dim Row As DataRow = objDataSet.Tables("Daten").NewRow()
            With Row
                .Item("Filmname") = TextBox14.Text
                .Item("FilmNr") = TextBox15.Text
                .Item("Format") = ComboBox1.Text
                .Item("Tonformat") = ComboBox2.Text
                .Item("Genre") = ComboBox3.Text
                .Item("Spielzeit") = TextBox19.Text
                .Item("Discs") = ComboBox4.Text
                .Item("Sprache") = ComboBox5.Text
                .Item("FSK") = TextBox22.Text
                .Item("Label") = TextBox23.Text
                .Item("Datum") = TextBox24.Text
                .Item("Qualität") = ComboBox6.Text
                .Item("Regisseur") = TextBox26.Text
                .Item("Darsteller") = TextBox27.Text
                .Item("Beschreibung") = RichTextBox4.Text
                .Item("FrontCover") = FrontCov
                .Item("BackCover") = BackCov
            End With
            Dim cb As New OleDb.OleDbCommandBuilder(objDataAdapter)
            Me.BindingContext(objDataSet).EndCurrentEdit()
            objDataSet.Tables("Daten").Rows.Add(Row)
            AddHandler objDataAdapter.RowUpdated, New _
              OleDb.OleDbRowUpdatedEventHandler(AddressOf OnRowUpdated)
            objDataAdapter.Update(objDataSet, "Daten")
            RemoveHandler objDataAdapter.RowUpdated, New _
              OleDb.OleDbRowUpdatedEventHandler(AddressOf OnRowUpdated)
            ListBox1.SelectedValue = newid
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten: " & ex.Message, _
              MsgBoxStyle.Information)
 
        End Try
        ReDim FrontCov(-1)
        ReDim BackCov(-1)
    End Sub