Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ToolStripStatusLabel1.Text = (Me.BindingContext( _
        Me.objDataView).Count.ToString & " Film(e) in der Datenbank")
        Try
            Dim dr As DataRow = objDataView.Item(ListBox1.SelectedIndex).Row
            PictureBox2.Visible = False
            PictureBox1.Visible = True
            Try
                Dim Bytesfront As Byte()
                Bytesfront = CType(dr.Item("Front"), Byte())
                PictureBox1.Image = New Bitmap(New IO.MemoryStream(Bytesfront))
            Catch
                PictureBox1.Image = PictureBox1.ErrorImage
            End Try
            Try
                Dim Bytesback As Byte()
                Bytesback = CType(dr.Item("Back"), Byte())
                PictureBox2.Image = New Bitmap(New IO.MemoryStream(Bytesback))
            Catch
                PictureBox2.Image = PictureBox1.ErrorImage
            End Try
        Catch
        End Try
 
 
    End Sub