'ツリービューオブジェクト名.Nodes.Add [Relative], [Relationship], [Key], [Text], [Image], [SelectedImage]
'http://www.officetanaka.net/excel/vba/treeview/05.htm
'Relative:上位の階層を指定、ない場合、最上位の場合、指定がいらない
'Relationship:子ノードを登録するとき必要、tvwChildと指定
'Key:ノード上のKey
'Text:ノード上の表示
'Image:未選択時の表示（イメージ）
'SelectedImage:選択時の表示（イメージ）
'トップノードの表示
Do Until レコードセット.EOF
ツリービューオブジェクト名.Nodes.Add , , レコードセット上のノード上のKey, レコードセットの表示したい項目
レコードセット.MoveNext
Loop
'下位ノードの表示
Do Until レコードセット.EOF
ツリービューオブジェクト名.Nodes.Add レコードセット上のノード上のKey, tvwChild , レコードセット上のノード上のKey, レコードセットの表示したい項目
レコードセット.MoveNext
Loop
'クリックイベント
Private Sub ツリービューオブジェクト名_NodeClick(ByVal Node As Object)
Node.Key 'クリックしたノードのキー
Node.Children 'クリックした下位ノードの数
End Sub
Private Sub ツリービューオブジェクト名_NodeCheck(ByVal Node As Object)
Node.Checked 'ノードのチェック状態
End Sub