O campo APROVADO é de que tipo. Se for String voce tem que colocar entre aspas simples assim
Set Orcamento = vgDb.OpenRecordSet("select * from [Vendas pecas servicos] where [pedido de venda] = '" & Pedido_de_venda & "' and Aprovado ='true'")
De uma olhada pelo access e veja o que esta cadastrado TRUE, -1, True ou true se for string vai fazer diferenca estar com letras em caixa alta.