Vb.net VIS2017 и SQLite изображения из БД в поле картинка с чтения данных.

---

Привет всем, я пытался добавить некоторые функции БД в одно из моих приложений, но мне не очень повезло. Пожалуйста, имейте в виду, что не используйте набор данных с помощью считывателя данных.
Я перепробовал много способов, чтобы получить мои данные из БД в форму windows в поле изображения. Я хочу, чтобы изображение было помещено в поле изображения в зависимости от того, какой элемент выбран в поле со списком. У меня также возникают проблемы с загрузкой других значений в текстовые строки в зависимости от того, какой элемент в БД выбран в поле со списком; см. код. Код имеет много попыток изображения из базы данных SQLite в picture box.

Что я уже пробовал:

#Region "Data Test"
 
    Dim aidlink As String

    Const CONNECTION_STR As String = "Data Source=a2w;Version=3;"

    Private Sub ReadData()

        Dim objConn As SQLiteConnection
        Dim objCommand As SQLiteCommand
        Dim objReader As SQLiteDataReader

        Try

            objConn = New SQLiteConnection(CONNECTION_STR)
            objConn.Open()

            objCommand = objConn.CreateCommand()
            objCommand.CommandText = "SELECT [id],[aname] ,[fname] ,[slink] ,[aimg] From [apps] ORDER BY aname" ' "SELECT * FROM apps ORDER BY aname" 

            objReader = objCommand.ExecuteReader()

            ComboBox1.Items.Clear()
            While (objReader.Read())
                ComboBox1.Items.Add(objReader("aname"))

                Dim bytaimg(objReader.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte 'returns error "Specified cast is not valid"
                objReader.GetBytes(1, 0, bytaimg, 0, bytaimg.Length)
                Dim stmaimg As New MemoryStream(bytaimg)
                PictureBox1.Image = Image.FromStream(stmaimg)
                PictureBox2.Image = CType((objReader("aimg")), Image)




                Dim aid = ("steam://rungameid/" & (objReader("slink"))) ', String)
                aidlink = aid
                Dim tid = (objReader("slink"))

                Me.Text = CType(Application.ProductName & " " & "v" & Application.ProductVersion & " " & "App ID:" & " " & tid, String)

            End While

        Catch ex As Exception
            MessageBox.Show("An error has occurred: " & ex.Message)

        Finally

            If Not IsNothing(objConn) Then
                objConn.Close()
            End If
        End Try
        objConn.Close()
    End Sub

#End Region

---