DataGridView não traz registro solicitado

Bom dia!

Estou com o seguinte problema ao carregar o registro selecionado: Quando a Grid carrega e eu seleciono, ela leva para um form e eu consigo atualizar perfeitamente, porém, ao fechar o form e repetir a operação, ele traz o primeiro registro do banco, independente dele atender os requisitos solicitados

Segue código:

Public Class Form3

Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
PCarregaDados()
End Sub

Private Sub PCarregaDados()
Using con As SqlConnection = GetConnection()
Try
con.Open()

 Dim sql As String = "SELECT idchamado, tiposolicitacao, nomefuncionario,nomesetor,descricaochamado, dataabertura, chamadoencerrado, dataencerramento, meiosolicitacao, logincriador FROM TblChamado INNER JOIN TblSetor nomesetor on (idsetor = setorfuncionario) INNER JOIN TblSolicitacao tiposolicitacao on (idsolicitacao = solicitacaotipo) INNER JOIN TblViaSolicitacao meiosolicitacao on (idmeiosolicitacao = solicitacaomeio) WHERE (TblChamado.chamadoencerrado = 0)"
 'Dim sql As String = "SELECT * FROM TblChamado"
 Dim cmd As SqlCommand = New SqlCommand(sql, con)
 Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
 Dim dt As DataTable = New DataTable
 da.Fill(dt)
 dgvChamados.DataSource = dt
 'dgvChamados.AllowUserToResizeColumns = False
 'dgvChamados.MultiSelect = False
 'dgvChamados.Columns.Item(0).HeaderText = "Chamado Nº"
 'dgvChamados.Columns.Item(0).AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
 'dgvChamados.Columns.Item(1).HeaderText = "Tipo da Solicitação"
 'dgvChamados.Columns.Item(1).Width = 250
 'dgvChamados.Columns.Item(2).HeaderText = "Func.Solicitante"
 'dgvChamados.Columns.Item(3).HeaderText = "Setor Solicitante"
 'dgvChamados.Columns.Item(3).Width = 200
 'dgvChamados.Columns.Item(4).HeaderText = "Descrição do Chamado "
 'dgvChamados.Columns.Item(4).Width = 200
 'dgvChamados.Columns.Item(5).HeaderText = "Data de Abertura"
 'dgvChamados.Columns.Item(5).Width = 160
 'dgvChamados.Columns.Item(6).HeaderText = "Encerrado"
 'dgvChamados.Columns.Item(6).Visible = False
 'dgvChamados.Columns.Item(7).HeaderText = "Data de Encerramento"
 'dgvChamados.Columns.Item(7).Visible = False
 'dgvChamados.Columns.Item(8).HeaderText = "Forma de Solicitação"
 'dgvChamados.Columns.Item(8).Visible = False
 'dgvChamados.Columns.Item(9).HeaderText = "Login Criador"
 'dgvChamados.Columns.Item(9).Visible = False
 Catch ex As Exception
 MsgBox(ex.Message)
 Finally
 con.Close()
 End Try
 End Using
 End Sub
 Private Sub PListaChamados()
 intIdChamado = dgvChamados.CurrentRow().Cells(0).Value
 intSoltipo = dgvChamados.CurrentRow().Cells(1).Value
 strNomefunc = dgvChamados.CurrentRow().Cells(2).Value
 intSetor = dgvChamados.CurrentRow().Cells(3).Value
 strDescricao = dgvChamados.CurrentRow().Cells(4).Value
 datAbrechamado = dgvChamados.CurrentRow().Cells(5).Value
 booChamadoEnc = dgvChamados.CurrentRow().Cells(6).Value
 datEncChamado = dgvChamados.CurrentRow().Cells(7).Value
 intSolmeio = dgvChamados.CurrentRow().Cells(8).Value
 strLogcriador = dgvChamados.CurrentRow().Cells(9).Value
 Form4.ShowDialog()
 PCarregaDados()
 End Sub
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 End Sub

 Private Sub dgvChamados_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvChamados.CellMouseDoubleClick
 'Form4.CmbSolicitacaoTipo.Enabled = False
 'Form4.TxtNomeFuncionario.Enabled = False
 'Form4.CmbSetorFuncionario.Enabled = False
 'Form4.MskDataAbertura.Enabled = False
 'Form4.CmbSolicitacaoMeio.Enabled = False
 'Form4.BtnAdNovo.Enabled = False
 'Form4.BtnExcluir.Enabled = False
 'Form4.BtnSalvar.Enabled = False
 PListaChamados()
 End Sub