>What is List1 rowsource?
>
>List1.rowsource=0

You may just loop through the list and collect all items to a cursor:

create cursor mycursor (gateno C(1))
with thisform.list1
  for nLoop=1 to .listcount
   insert into mycursor values(.list(nLoop))
  endfor
endwith