for lnI = 1 to thisform.List1.ListCount insert into MyTable (field1, field2) values (thisform.List1.List[m.lnI,1], thisform.List1.List[m.lnI,2]) next