بحث و إظهار صورة من قاعة البيانات علىPictureBox

كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Try

           

            Dim freader As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)

            Dim breader As New BinaryReader(freader)

            Dim imbuffer(freader.Length) As Byte

            breader.Read(imbuffer, 0, freader.Length)

            Dim sqls As String = "INSERT INTO img_tb (imname,imga) values (@x1,@x2)"

            Dim cmda As New OleDbCommand(sqls, cn)

            'cmda.CommandText = sqls

            'cmda.Connection = cn

            cmda.Parameters.AddWithValue("@x1", linen.Text)

            cmda.Parameters.AddWithValue("@x2", imbuffer)

            cmda.ExecuteNonQuery()

            'cmda.Dispose()

            MsgBox("saved")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub