VB.NET Pesquisar Imagens pelo banco de dados mysql no vb.net

[Caio G Sa Silva]

Boa Noite !

 

Estou com problemas ao pesquisar fotos armazenadas no banco de dados MYSQL no PHPADMIN no picturebox e no datagridview

 

Imports System.IO
Imports System.Data.Odbc
Imports System.Drawing.Imaging

 

Public Class FrmAlunos_Cadastrados

    Private Sub listar()

        filtrar("select * from aluno", "aluno")
        DataGridView1.DataSource = dados
        DataGridView1.DataMember = "aluno"
        olecon.Close()

    End Sub

    Private Sub btnpesquisar_Click(sender As Object, e As EventArgs) Handles btnpesquisar.Click
       
        Dim comando = "select * from aluno where cod_rm =" + txtra.Text

        pesquisar(comando)

        If guarda.Read() Then
            txtra.Text = guarda(1).ToString()
            Dim bytePicData() As Byte
            bytePicData = guarda.Item("foto")
            Dim PicMemStream As New System.IO.MemoryStream(bytePicData)
            PictureBox1.Image = Image.FromStream(PicMemStream)

        Else
            MsgBox("RM não localizado")
            txtra.Clear()
            PictureBox1.Image = Nothing
        End If

        guarda.Close()
        olecon.Close()

    End Sub

    Private Sub btnlistar_Click(sender As Object, e As EventArgs) Handles btnlistar.Click
       
        listar()
        olecon.Close()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnhome.Click
        FrmFuncionários.Show()
        Me.Close()
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim linha = DataGridView1.CurrentCellAddress.Y
        txtra.Text = DataGridView1(1, linha).Value.ToString()

        Dim comando = "select * from aluno where cod_rm =" + txtra.Text
        pesquisar(comando)

 

        If guarda.Read() Then

            Dim bytePicData() As Byte
            bytePicData = guarda.Item("foto") "o erro ocorre aqui 

erro:  "An unhandled exception of type 'System.OverflowException' occurred in System.Data.dll

Additional information: Operação aritmética resultou em um estouro."

 

            Dim PicMemStream As New System.IO.MemoryStream(bytePicData)
            PictureBox1.Image = Image.FromStream(PicMemStream)
        End If
        olecon.Close()
        guarda.Close()

    End Sub

    

End Class

 

gostaria de ajuda?

 

Obs: o banco de dados está armazenado no php admin atráves do programa vertrigo e da conexão mysql ODBC.

[Caio G Sa Silva]

alguém pode me orientar o que fazer?