how to find customer address using vbeln?

Hi everyone!

I'm working with scripts.In a driver program i write code for fetching address from KNA1 table using 'vbeln' (sales order no).

Data fetching:-     vbak->vbeln kunnr

                           kna1->kunnr adrnr

then i use this function module ADDR_SELECT_ADRC_SINGLE.

after running this function module i m getting sy-subrc = 1(address not exist).

then how to find customer address?

          I'll attached my program code.

Thanks for your help!

Regards