树型结构的优化

Question

原码:
Set MyTree2 = New Tree  '定义类
       do while not rs1.eof  '循环大类(一层)名称
       qcdl_dlmc1= rs1("qcdl_dlmc")  
       qcdl_ccbm1= rs1("qcdl_ccbm")  
       Set Node2 = MyTree2.CreateChild(qcdl_dlmc2) '显示出大类名称
 选出二层的层次码
         if not rs1.eof then         
   do while not rs2.eof
     qcdl_dlmc2= rs2("qcdl_dlmc")
     qcdl_ccbm2= rs2("qcdl_ccbm")
     Set Node3 = Node2.CreateChild(qcdl_dlmc2)   '显示出二层名称   选出三层的层次码          
            do while not rs3.eof
 qcdl_dlmc3= rs4("qcdl_dlmc")
 qcdl_ccbm3= rs4("qcdl_ccbm")
         Node3.CreateChild "<A HREF=""index.asp?qcdl_dlmc3="&qcdl_dlmc3&"&qcdl_ccbm3="&qcdl_ccbm3&""" target=""mainFrame"">"&qcdl_dlmc4&"</A>"   '显示出三层下的内容
          rs3.movenext
          loop
        rs2.movenext
        loop
    end if      
    rs1.movenext
    loop
MyTree2.Draw()   '显示树型结构
Set MyTree2 = Nothing
问题：当数据量特别大时，树就会很慢（每次刷新是取全部数据），现在想法是：在点击父结点时才读取下一级的数据,如何解决，请各位兄弟多帮帮忙啦！！！！ 多谢指教!