VB – 动态循环加载控件数组失效的解决方法

sql=”select * from table1″
rs.open sql,cnn,1,3
‘—————————————————————————-
do while not rs.eof
i=cint(rs(“sid”))
load frmmain.imgswitch(i)’只要加这个，循环就失效了？
rs.movenext
loop
‘—————————————————————————-
循环失效,只有一个控件被load,而且没有错误提示
经查,是由于事先控件imgswitch(0)已经load所致
修改程序如下:
‘—————————————————————————-
do while not rs.eof
i=cint(rs(“sid”))
if i<>0 then ‘—
load frmmain.imgswitch(i)
end if
rs.movenext
loop