Dim sSource As String = "D:\Migration\TestMulti.JPG"
Dim bytes() As Byte
Dim fstream As FileStream
Dim bwriter As BinaryWriter
bytes = System.Text.Encoding.Default.GetBytes(dt.Rows(0)("Bilder"))
fstream = New FileStream(sSource, FileMode.Create, FileAccess.Write)
bwriter = New BinaryWriter(fstream)
bwriter.Write(bytes)
bwriter.Close()