Dim sFilename as String = "C:..." 'Dateipfad
 
Dim f As FileStream = New FileStream(sFilename, FileMode.Open)
 
'Byte-Array in dem der stream gespeichert wird
Dim MyData(f.Length) As Byte
f.Read(MyData, 0, f.Length)
f.Close()

Public Function getPicFromDB() As Stream
 
   [...]
   'Inhalt der Spalte "Bildstream" wird ins Byte-Array geschrieben
   Dim MyData() As Byte
   MyData = myRow("Bildstream")
 
   'Das Byte-Array wird in einen stream konvertiert
   Dim ms As New MemoryStream(MyData)
 
   return ms
 
End Function

Me.picBox.Image = Image.FromStream(getPicFromDB())