VB 实时错误“365”

我建了一个按键的数组来显示一列数据，但是我存储的每列数据里所占的行数不一样。所以当我在切换显示不同列的数据时必须得先将前面的按键数组我卸载后 再重新加载!

  If command1.Count > 1 Then
  For i2 = 1 To command1.Count - 1
  Unload command1(i2)
  Next i2
  End If

For ii = 1 To rs.RecordCount
   
  Load command1(ii)
next

就是这样的卸载和加载的程序放在一起就出现了实时错误！

实时错误　‘365’ 
不能在该上下文中卸载 

求解啊！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！兄弟没分了，各位大姐大哥帮帮小弟啊

For ii = 1 To rs.RecordCount-1
   
  Load command1(ii)
next