Dim ofd As New OpenFileDialog
        Dim imgPath As String
        Dim bmp As Bitmap
        Dim bw As IO.BinaryReader
        Dim fs As IO.FileStream
        Dim bytes() As Byte
        If ofd.ShowDialog = DialogResult.OK Then
            imgPath = ofd.FileName
            fs = New IO.FileStream(imgPath, IO.FileMode.OpenOrCreate)
            bw = New IO.BinaryReader(fs)
            bytes = bw.ReadBytes(bw.BaseStream.Length)
            dt.Rows(Me.BindingContext(dv).Position)("Bild_Bin") = bytes
        End If

        Dim bytes() As Byte
        bytes = CType(dt.Rows(Me.BindingContext(dv).Position)("Bild_Bin"), Byte( _
          ))
        Dim fs As New IO.MemoryStream(bytes, 0, bytes.Length, False)
        Dim bmp As New Bitmap(fs)
        Me.PictureBox1.Image = bmp