Hi Neil,

i replay first solution

m.key2Size=FSIZE('key2','modacad')
sList=''
WITH List1
FOR i=1 to .ListCount
IF .Selected(m.i)
sList=m.sList+",'"+PADR(.List(m.i),m.key2Size)+"'")
ENDIF
ENDWITH

SELECT * FROM modacad WHERE inlist(key2 &sList.) into cursor tresult

Second solution is equal to Cetin solution.

Fabio