Dim pic As Byte()
Dim fs As New System.IO.BinaryReader(New System.IO.StreamReader( _
  "C:\Bild.png").BaseStream)
pic = fs.ReadBytes(Cint(fs.BaseStream.Length))
 
Dim dt As New DataTable
Dim row As Datarow
row = dt.NewRow
row("Bild") = pic