Hmm, OK.

* combo::init()
This.Tag=SYS(2015)
This.RowSource="SELECT authcode,auth_sname,auth_fname,auth_mname FROM author WHERE authcode>5 INTO CURSOR"+This.Tag 
This.Requery()

* combo::destroy()
IF USED(This.Tag)
   USE IN (This.Tag)
ENDIF

MartinJ

>I am new to this. Can you pl. tell me step by step. If you don't mind.
>
>
>Thanks
>
>regards