Dim bw As IO.BinaryReader
Dim fss As IO.FileStream
Dim bytes() As Byte
 
fss = New IO.FileStream("c:\Test.jpg", IO.FileMode.OpenOrCreate)
bw = New IO.BinaryReader(fss)
bytes = bw.ReadBytes(CType(bw.BaseStream.Length, Integer))
 
CType(Me.BindingContext(m_DataSource, m_DataTableName).Current, _
  System.Data.DataRowView)(ColumnName) = bytes
 
MsgBox.show("Test", "Das Bild wurde aktualisiert, jedoch erst nach dem" & _
  "Speichern angezeigt!")