Dim iRet As Integer, iRecords As Integer, iCount As Integer, _
              sBuff As String, lFlags As Long 
 
     iRet = LceSetSelectOptions(iSession, "*BACKWARDS,  *MAXREC25")   
     iRet = LceSelect(iSession, "SURNAME, SALARY", "PSLMST", "", _
              LceFalse, iRecords)
 
     sBuff = space(256, chr(0))
     For iCount=1 to iRecords
              iRet = LceGetSelect(iSession, "PSLMST", iCount, "SURNAME")
              iRet = LceGetFieldValueX(iSession, "SURNAME", sBuff, lFlags)
              lstNames.AddItem  sTrim (sBuff)
              lstNames.ItemData (lstNames.NewIndex) = iCount
     Next