DataGridView não traz registro solicitado

[d_albino 0]

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
End Class