How to create dynamically create Accordian pane using VB.Net,ASP.Net?

Imports System.Data
Imports System.Data.SqlClient
Imports AjaxControlToolkit


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
If Session("Emp_Id") = "" Then
ScriptManager.RegisterStartupScript(Me, Me.GetType, "", "window.open('login.aspx','_top');", True)
End If
If Not IsPostBack Then

Dim dthead As New DataTable
Dim dtcontent As New DataTable
Dim page_id As String
Dim j As Integer
Dim k As Integer
dt = objlogin.Select_PageId(Session("Emp_Id"))

page_id = dt.Rows(0)("ACCESS_PERMISSION").ToString()

If page_id.Length > 0 Then
dtcontent = objlogin.Select_PageName(page_id)
If dtcontent.Rows.Count > 0 Then
dthead = dtcontent.DefaultView.ToTable(True, "CATEGORY")

For j = 0 To dthead.Rows.Count - 1
Dim Pane As New AccordionPane()
Pane.HeaderContainer.Controls.Add(New LiteralControl("<b>"))
Pane.HeaderContainer.Controls.Add(New LiteralControl("   + " + dthead.Rows(j)("CATEGORY").ToString()))
Pane.HeaderContainer.Controls.Add(New LiteralControl("</b>"))
Dim dv As New DataView(dtcontent)
dv.RowFilter = "CATEGORY='" & dthead.Rows(j)("CATEGORY").ToString() & "'"
dv.Sort = "SUBLINK_ORDER"
If dv.Count > 0 Then
For k = 0 To dv.Count - 1
If dv(k)("PAGEURL").ToString().ToLower = "report_main.aspx" Then
Pane.ContentContainer.Controls.Add(New LiteralControl("   - <a style='text-decoration: none; color: #000000' target='_self' onclick=" & "window.open('report_main.aspx'); href='#'>" & dv(k)("PAGENAME").ToString() & "</a>"))
Else
Pane.ContentContainer.Controls.Add(New LiteralControl("   - <a style='text-decoration: none; color: #000000' target='mainFrame' href='" & dv(k)("PAGEURL").ToString() & "' >" & dv(k)("PAGENAME").ToString() & "</a>"))
End If
Pane.ContentContainer.Controls.Add(New LiteralControl("<br/>"))
Menu.Controls.Add(Pane)
Next
End If
Next
End If
End If
End If
Catch ex As Exception
objerror.ErrorDetails(ex)
End Try
End Sub