استفسار عن حل لمشكلة devexpress gridcontrol

PHP كود :

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
        If DataGridView1(3, DataGridView1.CurrentRow.Index).Selected = True Then
            EditCompany.SHOW_DET(DataGridView1.CurrentRow.Cells(0).Value)
            Me.Close()
        End If

    End Sub

PHP كود :

Sub SHOW_DET(ID1_)
        Try
            Dim DT As New DataTable
            Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM Tab_Company WHERE EmID = '" & ID1_ & "' ", SqlConn)
            DA.Fill(DT)
            If DT.Rows.Count = 0 Then
                MessageBox.Show("5515151d", "User", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                Dim SHOW_ As Integer = BindingContext(DT).Position
                EmID.Text = DT.Rows(SHOW_).Item("EmID")
                CompanyNAme.Text = DT.Rows(SHOW_).Item("CompanyName")
                CompanyOwner.Text = DT.Rows(SHOW_).Item("CompanyOwner")
                CompActivity.Text = DT.Rows(SHOW_).Item("CompActivity")
                Companyadrs.Text = DT.Rows(SHOW_).Item("Companyadrs")
                Comp_Capital.Text = DT.Rows(SHOW_).Item("Comp_Capital")
                Commericalrecord.Text = DT.Rows(SHOW_).Item("Commericalrecord")
                CommericalPlace.Text = DT.Rows(SHOW_).Item("CommericalPlace")
                TaxFileId.Text = DT.Rows(SHOW_).Item("TaxFileId")
                TaxAgency.Text = DT.Rows(SHOW_).Item("TaxAgency")
                CompanyExec.Text = DT.Rows(SHOW_).Item("CompanyExec")
                Companytel.Text = DT.Rows(SHOW_).Item("Companytel")
                Companytel2.Text = DT.Rows(SHOW_).Item("Companytel2")
                Companytel3.Text = DT.Rows(SHOW_).Item("Companytel3")
                TaxDate.Text = DT.Rows(SHOW_).Item("TaxDate")
                GehaComp.SelectedValue = DT.Rows(SHOW_).Item("GehaComp")
                GehaType.SelectedValue = DT.Rows(SHOW_).Item("GehaType")
                CompState.SelectedValue = DT.Rows(SHOW_).Item("CompState")
                CompLaw.SelectedValue = DT.Rows(SHOW_).Item("CompLaw")
            End If
        Catch ex As Exception

        End Try
    End Sub

PHP كود :

Private Sub DataGridView1_Click(sender As Object, e As EventArgs) Handles DataGridView1.Click
        If DataGridView1(3, DataGridView1.CurrentRow.Index).Selected = True Then
            Emdad_EditCompany.SHOW_DET(DataGridView1.CurrentRow.Cells(0).Value)
            Me.Close()
        End If

    End Sub