Create Cursor mycursor (code C(3),descript C(20)) For nLoop=1 to thisform.mylist.listcount nCode=thisform.mylist.list(nLoop) Insert Into mycursor Select code,descript From student where code=nCode Endfor