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

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

------解决方案--------------------
VB code
dim i as integer
with 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 i
end with