Olá Pedim, o problema é que o seu campo "Cod Desc" é separado por espaço, o que não é muito recomendável em um Banco de Dados. A sua instrução SQL não está ordenando, pois ele não está achando o seu campo na tabela do seu Banco de Dados. Tente fazer o seguinte:
datPrimaryRS.RecordSource = "SELECT * FROM TBLFATURA_PHD WHERE CNPJ_PHD='" & lblCNPJ.Caption & "' ORDER BY [COD DESC]"
Obs.: no exemplo que você postou também faltou uma aspa simples depois do campo CNPJ_PHD (datPrimaryRS.RecordSource = "select * from tblfatura_phd where CNPJ_PHD=" & lblCNPJ.Caption & "' order by Cod desc").
Um abraço!!!
Tentei...
