Try
            Dim pic As Byte()
            Dim LogoImage As Image = Nothing
 
            LogoImage = Image.FromFile("C:\...\Bild.jpg")
           ' Bearbeite Image
           LogoImage.Save("C:\TestBild.jpg")
           Dim fs As New IO.BinaryReader(New IO.StreamReader( _
             "C:\TestBild.jpg").BaseStream)
            ReDim pic(CInt(fs.BaseStream.Length) - 1)
            pic = fs.ReadBytes(CInt(fs.BaseStream.Length))
           dsDaten.Tables(0).Rows(i).Item("LogoBetreiber") = pic
Catch ex As Exception
 
Finally
     Try
           Kill("C:\TestBild.jpg")
     Catch  eex As Exception
 
      End Try
End Try