>thanks reply, yes all records

Then change your code to something similar to this:

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