vb.net จะแสดงรูปเวลาคลิกเลือกข้อมูลแต่ละรายการมาแสดงใน picturebox ต้องทำไงครับ

Private Sub DataGridViewWeddingDress_CellMouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridViewWeddingDress.CellMouseUp
        If e.RowIndex = -1 Then
            Exit Sub

        End If
        With DataGridViewWeddingDress
            TextBoxWeddingDressID.Text = .Rows(e.RowIndex).Cells(0).Value.ToString()
            TextBoxWeddingDressName.Text = .Rows(e.RowIndex).Cells(1).Value.ToString()
            TextBoxWeddingDressQty.Text = .Rows(e.RowIndex).Cells(2).Value.ToString()
            TextBoxWeddingDressPrice.Text = .Rows(e.RowIndex).Cells(3).Value.ToString()
            TextBoxWeddingDressDay.Text = .Rows(e.RowIndex).Cells(4).Value.ToString()
             PictureBox1.Image = ""
            ' Dim cn As New SqlConnection(ConStr)
            ' Dim cmd As New SqlCommand("SELECT WeddingID, " & _
            '"Picture FROM TableWedding ORDER BY WeddingID", cn)
            ' Dim da As New SqlDataAdapter(cmd)
            'Dim ds As New DataSet()
            'da.Fill(ds, "TableWedding")
            ' Dim c As Integer = ds.Tables("TableWedding").Rows.Count
            'If c > 0 Then
            'Dim bytBLOBData() As Byte = _
            ' ds.Tables("TableWedding").Rows(c - 3)("Picture")
            ' Dim stmBLOBData As New MemoryStream(bytBLOBData)
            ' PictureBox1.Image = Image.FromStream(stmBLOBData)
            ' End If
            ' PictureBox1.Image = ByteToImage(Of Byte)()

            ' Dim cn As New SqlConnection(ConStr)
            ' Dim cmd As New SqlCommand("SELECT WeddingID, " & _
            '"Picture FROM TableWedding ORDER BY WeddingID", cn)
            ' Dim dr As SqlDataReader
            ' cn.Open()
            ' dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            ' If dr.Read Then
            'Dim bytBLOBData(dr.GetBytes(1, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte
            '  dr.GetBytes(1, 0, bytBLOBData, 0, bytBLOBData.Length)
            '  Dim stmBLOBData As New MemoryStream(bytBLOBData)
            ' PictureBox1.Image = Image.FromStream(stmBLOBData)
            ' End If
            ' dr.Close()

        End With
    End Sub