主题：如何将焦点定位到导航中的满足条件的节点？

If Forms("导航").Opened = False Then
  Forms("导航").Open()
End If
Dim Bar As WinForm.NavBar = Forms("导航").Controls("NavBar1")
Bar.SelectedPage = Bar.NavPages("录入审批")
Dim tr As WinForm.TreeView = Forms("导航").Controls("TreeView3")
Dim nd As WinForm.TreeNode
For Each nd In tr.nodes
   If nd.name = MainTable.name Then
       nd.expand()
       For Each nd1 As WinForm.TreeNode In nd.nodes
         If nd1.name = e.DataRow("sys_流程") Then '如果节点名称等于当前行的流程名。
             tr.SelectedNode = nd1
             Exit For
         End If
       Next
    Exit For
   End If
Next

要如何才能实现，谢谢！