Create Cursor notprinted (po c(30)) If File('\\stysinger3\osf\data\orders.dbf') If Not Used('orders') Use '\\stysinger3\osf\data\orders.dbf' In 0 Shared Endif Select orders Scan For Len(Alltrim(orders.po))>0 And orders.printed<>.T. Select notprinted Locate For Alltrim(notprinted.po)=Alltrim(orders.po) If Found()=.T. *do nothing Else Insert Into notprinted (po) Values (orders.po) Endif Endscan Thisform.lstpos.RowSource='notprinted.po' Thisform.lstpos.Refresh Thisform.lstpos.Click Thisform.Refresh Else Wait 'network path not found, process suspeneded' Window Nowait EndifThis bit of code is part of an automated process that fires every 10 seconds or 30000 miliseconds.