[سؤال] أرجو المساعدة في حل المشكلة

كود :
Private Sub DGVPrd_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)

        If e.ColumnIndex = 12 Then



            If Con.State = 1 Then Con.Close()

            Con.Open()

            cmd = New SqlCommand("select * from bok_tbl where Bok_ID=@Bok_ID", Con)

            cmd.Parameters.AddWithValue("@Bok_ID", DGVPrd.CurrentRow.Cells(0).Value)

            rdr = cmd.ExecuteReader

            rdr.Read()

            If rdr.HasRows Then

                With Frm_Add_Update_Prd

                    .load_Bok_tbl()

                    .Bok_ID.Text = rdr("Bok_ID").ToString

                    .Bok_Parcode.Text = rdr("Bok_Parcode").ToString

                    .BokName.Text = rdr("BokName").ToString

                    .BokMulf.Text = rdr("BokMulf").ToString

                    .BokMhqq.Text = rdr("BokMhqq").ToString

                    .BokDar.Text = rdr("BokDar").ToString

                    .BokNshr.Text = rdr("BokNshr").ToString

                    .BokTbAh.Text = rdr("BokTbAh").ToString

                    .TabhData.Text = rdr("TabhData").ToString

                    .BokVol.Text = rdr("BokVol").ToString

                    .Bokprice.Text = rdr("Bokprice").ToString

                    .CmbCat.SelectedValue = rdr("Cat_ID").ToString

                    Dim data As Byte() = DirectCast(rdr("BokImage"), Byte())

                    Dim ms As New MemoryStream(data)

                    Dim bitamp As New System.Drawing.Bitmap(ms)

                    .BokImage.Image = bitamp

                    .Label1.Text = "تعديل بيانات الكتاب" & DGVPrd.CurrentRow.Cells(2).Value

                    .btnSavebok.Enabled = False

                    .btneditBok.Enabled = True

                    .Show()

                End With

            End If

            rdr.Close()

            Con.Close()



        ElseIf e.ColumnIndex = 13 Then



        End If

    End Sub