У меня вопрос: как сделать так, чтобы при загрузке формы, на которой есть Treeview, дерево было развернутое, т.е. все вложенности до последнего уровня были раскрыты, а не только начальный уровень.

Как работает Treeview я изучаю недавно, поэтому у меня еще многое не получается. Построить то я его постороила, а как обновлять не знаю.
Дерево я строю так, на OnActivate вызываю функцию:

Sub TreeLoad()
tvwODE.Nodes.Clear
Set rst = CurrentDb.OpenRecordset("SELECT * from YPSection Where YPSection.ParentID=0", dbOpenForwardOnly)
While Not rst.EOF
Set nodode = tvwODE.Nodes.Add(, , "in" & rst!YPSECTIONID, "" & rst!NAME)
nodode.Image = 2
nodode.Expanded = True 'разворачиваю узел
str1 = "Select * from YPSection where ParentID=" & rst!YPSECTIONID
Set rst1 = CurrentDb.OpenRecordset(str1, dbOpenForwardOnly)
While Not rst1.EOF
Set nodode = tvwODE.Nodes.Add("in" & rst!YPSECTIONID, tvwChild, "inin" & rst1!YPSECTIONID, "" & rst1!NAME)
nodode.Image = 1
nodode.Expanded = True ' дочерний узел разворачиваю

rst1.MoveNext
Wend '
rst.MoveNext
Wend

При добавлении узла из другой формы, надо перерисовать дерево, выделить новый узел. По событию Activate дерево перересуется, но вот как быть с нужным узлом?

У меня добавление идет в таблицу, поэтому надо обновить дерево.