数据库中的记录如何递归添加TreeView

private sub startAdd(treeview tv)
 dim s as string
 dim root as Node

 '在这里先可以创建一个根节点 
 set root=tv.nodes.add(,,key,"这是根节点")
 root.expand
 s="select *from tab where parentid='0'"
 '进行数据库查询
 while(条件成立)
  tv.nodes.aa(root,tvchild,key,text)
  RecurrenceFun(tv,key)
  '移动到下一条
 wend
end sub

private sub RecurrenceFun(treeview tv,node PNode,int Pid)
 dim s as string 
 dim Node as Node

 s="select *from tab where parentid=' + Pid + '"
 '进行数据库查询
 while(条件成立)
  set Node=tv.nodes.aa(PNode,tvchild,key,text)
  RecurrenceFun(treeview tv,node,int Pid)
  '移动到下一条
 wend
end sub