Public Sub PopulateContinents()
        Dim intEndIndex As Integer = 0
        Dim intCycledIndex As Integer = 0

        dbOpen()
        objCmd.CommandText = "SELECT tbl_Continent.ID_Continent, tbl_Continent.Name " & _
                             "FROM tbl_Continent"
        objReader = objCmd.ExecuteReader

        While objReader.Read
            intEndIndex += 1
        End While

        Dim tnSt(intEndIndex) As TreeNode
        Dim tnOf(intEndIndex) As TreeNode

        objReader.Close()
        objReader = objCmd.ExecuteReader

        While objReader.Read

            tnSt(intCycledIndex) = New TreeNode
            tnSt(intCycledIndex).Text = objReader("Name")
            tnSt(intCycledIndex).Value = "bs,strs,cntnt," & objReader("ID_Continent")
            tnSt(intCycledIndex).NavigateUrl = "sheet.aspx?ref=" & tnSt(intCycledIndex).Value
            Me.trvwbs.Nodes(0).ChildNodes(0).ChildNodes(0).ChildNodes.Add(tnSt(intCycledIndex))

            tnOf(intCycledIndex) = New TreeNode
            tnOf(intCycledIndex).Text = objReader("Name")
            tnOf(intCycledIndex).Value = "bs,ofcs,cntnt," & objReader("ID_Continent")
            tnOf(intCycledIndex).NavigateUrl = "sheet.aspx?ref=" & tnOf(intCycledIndex).Value
            Me.trvwbs.Nodes(0).ChildNodes(1).ChildNodes(0).ChildNodes.Add(tnOf(intCycledIndex))

            intCycledIndex += 1

        End While

        dbClose()
    End Sub

    Protected Sub trvwbs_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles trvwbs.Load

        trvwbs.Target = "ifrmbs"

        If Me.IsPostBack = False Then
            PopulateContinents()
        End If

    End Sub