Добавление изображения в imagelist из базы данных.

---

Привет, у меня возникли проблемы с добавлением изображения из базы данных в imagelist, ниже приведен код, который я использую, он возвращает изображение, но при добавлении в список изображений изображение становится полностью испорченным, поэтому оно не отображается.

'Load the image into a byte array
ImageArray = CType(dbrdr("COMP_PICTURE"), Byte())
'Create Memory Stream from Byte Array
Dim ms As New System.IO.MemoryStream(ImageArray)
'Add the memory stream to the image list
Dim img As System.Drawing.Image
img = Image.FromStream(ms)
ms.Close()
ilComponentImages.Images.Add(dbrdr("COMP_ID"), img)
ImageIndex = ilComponentImages.Images.IndexOfKey(dbrdr("COMP_ID"))

Любая помощь оценена по достоинству

---