DO BANCO PARA TEXTBOX

   Public Sub LerDados()
        Try
            c.conOpen()
            Dim sql As String = [Ô]select * from funcionarios where id=@id[Ô]
            c.cmd = New MySqlCommand(sql, c.cnn)
            c.cmd.Parameters.AddWithValue([Ô]@id[Ô], _id)
            Dim dr As MySqlDataReader = c.cmd.ExecuteReader()
            If dr.HasRows Then
                While dr.Read()
                    _admissao = CDate(dr([Ô]admissao[Ô]).ToString)
                    _cargo = (dr([Ô]cargo[Ô]).ToString)
                    _celular = (dr([Ô]celular[Ô]).ToString)
                    _cidade = (dr([Ô]cidade[Ô]).ToString)
                    _cpf = (dr([Ô]cpf[Ô]).ToString())
                    _nome = (dr([Ô]nome[Ô]).ToString)
                    _salario = CDbl(dr([Ô]salario[Ô]).ToString)
                    _telefone = (dr([Ô]telefone[Ô]).ToString)
                End While
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            c.conClose()
        End Try
    End Sub 

    Private Sub dgv_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellDoubleClick
        _func.Id = CInt(dgv.CurrentRow.Cells(0).Value)
        _func.LerDados()
        DTPickerAdmissao.Value = _func.Admissao
        txtCargo.Text = _func.Cargo
        txtCelular.Text = _func.Celular
        txtCidade.Text = _func.Cidade
        txtCpf.Text = _func.Cpf
        txtNome.Text = _func.Nome
        txtSalario.Text = CStr(_func.Salario)
        txtTelefone.Text = _func.Telefone
    End Sub