用Do While将MSHFlexGrid中的数据回入数据库，跳出时报错解决方案

用Do While将MSHFlexGrid中的数据回入数据库，跳出时报错
昨天用for next加时也是报这个错，想来想去没想到原因，就换Do While,
结果用Do While还是报这个错，于是就一步一步调试，发现，如果MSHFLEXGRID中只有一条数据的话就会不报错，如果是一条以上的话，就会在跳出循环时报错了，求大神指点~

[解决办法]

VB code

dim i as integerwith mshflexgrid1    for i=1 to .rows-1        if trim(.textmatrix(i,0))<>"" then            sqlstr=" insert into tbl values('a','b','c','d','e')"            sqlext(sqlstr)        end if    next iend with