iOS Question (Solved) SQLite BLOB to imageView?

Public Sub BytesToImage(bytes() As Byte) As Bitmap
   Dim In As InputStream
   In.InitializeFromBytesArray(bytes, 0, bytes.Length)
   Dim bmp As Bitmap
   bmp.Initialize2(In)
   Return bmp
End Sub

 imvNxt_Click:
'   imvNxt.Bitmap = bmp           ' Error: Object was Not initialized (UIImage),  imvNxt made in Designer
   imvNxt.Bitmap = rs           ' Error: Expected: UIImage, object type: B4IResultSet

Sub notGettingBLOB
    Log(" prntr errror B4 here, Yes/No")
'   Dim CursR As ResultSet = SQL1.ExecQuery("SELECT image FROM imgz WHERE RowID = " & lstRowIDs.Get(pos))
   Dim CursR As ResultSet = SQL1.ExecQuery("SELECT image FROM imgz")                                           '  Error loading image
   Dim binimageR() As Byte, OtptR As InputStream                                                               '  beyond bounds

'   CursR.Position = 0
   CurrentIndex = RowID
   binimageR = CursR.GetBlob("image")
   OtptR.InitializeFromBytesArray(binimageR, 0, binimageR.Length)
   BmpR.Initialize2(OtptR)       '  Error loading image                             ' stops here <
'   OtptR.Close                   '  Error loading image
   Dim outR As OutputStream = File.OpenOutput(File.DirDocuments, "Picturer.jpg" , False)
   BmpR.WriteToStream(outR, 100, "JPEG") ' write the bitmap to the stream
   outR.Close
   CursR.Close           '  Error loading image
   btnN.Bitmap = LoadBitmap(File.DirLibrary,"Picturer.jpg")
End Sub

Dim bytes() As Byte = resultSet4.GetBlob("image")  
imvNxt.Bitmap = BytesToImage(bytes)
resultSet4.Close

 Sub ReadBlob
   'Using ExecQuery2 is safer as it escapes special characters automatically.
   'In this case it doesn't really matter.
   rs = sql1.ExecQuery("SELECT thepic FROM table1 WHERE rowID = " & (RowID + 1))  ' **
   rs.NextRow
   Public Buffer() As Byte 'declare an empty byte array
   Buffer = rs.GetBlob("thepic")
   Public InputStream1 As InputStream
   InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
   Public Bitmap1 As Bitmap
   Bitmap1.Initialize2(InputStream1)
   InputStream1.Close
   ImageView1.Bitmap = Bitmap1
End Sub