Public  Sub LoadFromDB(strConn, strMenuTable,  strCondition)
      Dim Conn  
      Set Conn = Server.CreateObject("ADODB.Connection")
     Conn.Open strConn
           
      Dim SQL, RS, node, parentid, parentNode
     SQL = "SELECT * FROM "& strMenuTable
      If strCondition <> "" Then
          SQL = SQL & " WHERE "& strCondition
      End  If
     SQL = SQL & " ORDER BY MenuID, ParentID"
      
      Set RS = Conn.Execute(SQL)
           
      If Not RS.EOF  Then
           Do  While Not RS.EOF
               parentid=RS("ParentID")
                     
                Dim child                     
                Set child =  New Node
                Call child.Init(RS("Text"), RS("URL"), RS("ToolTip"))
               child.ID =RS("MenuID")
                     
                If parentid=0  Then
                    Nodes.Add(child)
                Else
                     Set parentNode = FindNode(Nodes, ParentID)
                     If Not (parentNode Is  Nothing)  Then
                         parentNode.Add(child)
                     End  If
                End  If
               RS.MoveNext           
           Loop
          RS.Close
      End  If
      Set RS =  Nothing
     Conn.Close  
      Set Conn = Nothing           
  End  Sub