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)
            Me.objDataTable.Rows(Me.BindingContext(Me.objDataView).Position)( _
              "Bild_Bin") = bytes '// Verwende hier ein DataView, müsstest dies 
            ' halt nur etwas anpassen
        End If

        Dim bytes() As Byte
        bytes = CType(Me.objDataTable.Rows(Me.BindingContext( _
          Me.objDataView).Position)("Bild_Bin"), Byte()) '// Hier gilt das 
        ' selbige 
        Dim fs As New IO.MemoryStream(bytes, 0, bytes.Length, False)
        Dim bmp As New Bitmap(fs)
        Me.PictureBox1.Image = bmp