sql="SELECT * FROM tabela"
set rs=conexao...
do while not rs.EOF
select Case RS! FORMA_PAGAMENTO
Case "D"
... se for exibido em uma grid , então exiba o nome 'Depósito bancário'
Case "C"
...Cheque
eassim por diante
não sei se você entendeu, mas é uma explanação breve
outra forma seria utilizando replace
FormaPgto=replace(RS! FORMA_PAGAMENTO,"D","Depósito bancário")
FormaPgto=replace(RS! FORMA_PAGAMENTO,"C","Cheque")
FormaPgto=replace(RS! FORMA_PAGAMENTO,"A","A Vista")
e onde você colocava RS!FORMA_PAGAMENTO colocar FormaPgto