treeview 循环增加 下级子项的有关问题

treeview 循环增加 下级子项的问题
Set cn = CreateObject("ADODB.Connection")
  strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\onlinetv\sql\onlinetv.mdb;Jet OLEDB:Database Password=;”"
  cn.Open strCn
  strQuery = "select b.channel_category_id,channel_category_turn,channel_category_name from channel_category b union select a.channel_category_id,-1,channel_name from channel a order by channel_category_id,channel_category_turn desc"
  Set Rs = cn.Execute(strQuery)
  While Not Rs.EOF
  If Rs("channel_category_turn") = 1 Then
  trv1.Nodes.Add , , Rs("channel_category_name"), Rs("channel_category_name")
  Else

'-----------------------------------------
  trv1.Nodes.Add Rs("channel_category_name"), tvwChild, , Rs("channel_category_name")
'----------------------------------

  End If
  Rs.MoveNext
  Wend
  Rs.close
  cn.close

提示无效对象,是 两横线之间处问题,各位大大, 该如何修改好?

[解决办法]
第一个参数需要的是父节点的 key，你用将要加入节点自己的 key 什么意思？
自己生自己！？