Android Question Error loading bitmap

Wait For (CallSub2(Starter, "SelectStatement", "SELECT * FROM MyTableName")) Complete (Result As List)

    Wait For (CallSub2(Starter, "MyTableName", SqlQueryString)) Complete (Result As List)
    
    ...
    
    Dim InputStream1 As InputStream
    '-----------------------------------------------+
    ' IN THIS LINE I WANT TO ASSIGN A BLOB FROM RESULT LIST
    ' This : ImputStream1 = ??? Result.Get(5) ???
    ' like that : InputStream1 = File.OpenInput(File.DirAssets, "image.jpg")
    '-----------------------------------------------+
    InputStream1 = File.OpenInput(File.DirAssets, "image.jpg")
    '-----------------------------------------------+
    Dim OutputStream1 As OutputStream
    OutputStream1.InitializeToBytesArray(1000)
    File.Copy2(InputStream1, OutputStream1)
    '-----------------------------------------------+
    Dim Buffer() As Byte
    Buffer = OutputStream1.ToBytesArray

Dim b() As Byte = File.ReadBytes(File.DirAssets, "image.jpg")

Dim b() As Byte = Result.Get(5)

    ' 0. Local variables
    Dim ImgList as List
    
    ' 1. Wait to connection on MySql Database to complete
    Wait For (CallSub(Starter, "Connect")) Complete (Success As Boolean)
    
    ' 2. If Success Connection
    If Success Then
    
        ' 2.1. Query to read all data from my datatable
        Dim s_sqltext As String = "SELECT * FROM " & MyImages

        ' 2.2. Wait to read all data from datatable
        Wait For (CallSub2(Starter, "SelectQueryString", s_sqltext)) Complete (Result As List)
        
        ' 2.3. Check and initialize temporary datalist to assign result
        If ImgList.IsInitialized = False Then
            ImgList.Initialize
        Else
            ImgList.Clear
        End If
        
        ' 2.4. Assign reading result to temporary list of data
        ImgList = Result
        
        '-------------------------------------------------------+
        ' 2.5. Array to reading columns of result
        Dim cols() As String
        
        ' 2.6. If list has records
        If ImgList.Size > 0 Then
        
            ' 2.6.1. For all data get values
            '---------------------------------------------------+
            For i = 0 To ImgList.Size - 1
                '-----------------------------------------------+
                ' Read columns from record
                cols = ImgList.Get(i)
                '-----------------------------------------------+
                ' Insert Query to SQLite
                sSql = "INSERT INTO " & SqliteImageTable & " VALUES (NULL, ?, ?, ?, ?, ?, ?, ?, ?)"
                '-----------------------------------------------+
                ' Check if SQL initialize
                If SQL.IsInitialized = False Then
                    ' Initialize to SQL database
                    ' Where PathOfDatabase is local path
                    ' Where MyDataBaseName is SQLite database name
                    SQL.Initialize(PathOfDatabase, MyDataBaseName, True)
                End If
                '-----------------------------------------------+
                ' Create a inputstream to read Col(5) because is BLOB in MySql
                ' and i want to convert before save to SQLite
                '-----------------------------------------------+
                Dim InputStream1 As InputStream
                '-----------------------------------------------+ αυτή πρέπει να αντικατασταθεί με αυτή της ανάγνωσης από την βάση MySql
                
                ' HERE I WANT HELP HOW TO READ COL(5) IN InputStream1
                
                ' This example with local image file work fine
                'InputStream1 = File.OpenInput(File.DirAssets, "cat01.jpg")
                
                ' I need to here help
                
                InputStream1 = Col(5) ' ??????? how to get col(5) image bytes '
                
                ' Save a bytes to stream
                '-----------------------------------------------+
                Dim OutputStream1 As OutputStream
                OutputStream1.InitializeToBytesArray(1000)
                File.Copy2(InputStream1, OutputStream1)
                ' Read bytes from output stream
                '-----------------------------------------------+
                Dim Buffer() As Byte
                Buffer = OutputStream1.ToBytesArray
                '-----------------------------------------------+
                ' Fill from columns ( and assign Buffer to Cols(5) )
                '-----------------------------------------------+
                Dim args As List = Array As Object(cols("0"), _
                                                   cols("1"), _
                                                       cols("2"), _
                                                    cols("3"), _
                                                    cols("4"), _
                                                    Buffer, _
                                                    cols("6"), _
                                                    cols("7"), _
                                                    cols("8")  )
                '-----------------------------------------------+
                ' Save to SQLite
                '-----------------------------------------------+
                m_Const.SQL_File.ExecNonQuery2(sSql, args)
                '-----------------------------------------------+
            Next
            '---------------------------------------------------+
        End If
        '-------------------------------------------------------+
    End If

    ' Get bytes from col(5)
    Dim b() As Byte = cols(5).GetBytes("UTF8")
    ' Read to input stream
    InputStream1.InitializeFromBytesArray(b, 0, b.Length)

    ' Here read saved image from mysql to assign to ImageView
       Dim c As Cursor = SQL.ExecQuery("SELECT RecImg FROM " & SqliteImageTable  & " WHERE id = " & iRecID)
  
       '-------------------------------------------------------+
       ' check if read record
    If c.RowCount = 1 Then

        c.Position = 0

        '  Read Blob image from SQLite
        Dim Buffer() As Byte = c.GetBlob("RecImg")

        ' Reading to stream
        Dim InputStream1 As InputStream
        InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)

         ' Create a bitmap
        Dim Bitmap1 As Bitmap
        Bitmap1.Initialize2(InputStream1)
        InputStream1.Close

        ' Assing to View
        ImgView.Bitmap = Bitmap1

    End If

Wait For (CallSub2(Starter, "MyTableName", SqlQueryString)) Complete (Result As List)

Dim b() As Byte = cols(5).GetBytes("UTF8")

Dim b() As Byte =Result.GetBlob("RecImg")

Dim b() As Byte = cols(5).GetBytes

 Wait For (CallSub2(Starter, "MyTableName", SqlQueryString)) Complete (Result As Cursor)

Wait For (CallSub2(Starter, "MyTableName", SqlQueryString)) Complete (Result As JdbcResultSet)