>If it is not too much trouble, would you give me the code? Thanks.

I don't guarantee it's runnable, but... :-)

PROCEDURE combo1.Requery()

*This.RowSourceType = 0
*This.Columns = 2
*This.ColumnWidth = 100,0
This.Clear()
This.AddItem('Dick', '132')
This.AddItem('Tom', '1643')
This.AddItem('Harry', '53')

SELECT cName, cID ;
   FROM nameList ;
   INTO CURSOR crsrList ;
   ORDER BY cName ;
   WHERE cID NOT IN ('132', '1643', '53')

SCAN
    This.AddItem(cName, cID)
ENDscan

How's that?