Hi,
With little modification it should work now as below.
Private Sub makeHTML(ByVal pDataSet As DataSet)
Dim lRowCount As Integer = 0
Dim lColCount As Integer = 0
Dim hCell As New HtmlTableCell
Dim lHyperLink(pDataSet.Tables(0).Rows.Count) As LinkButton
While lRowCount < pDataSet.Tables(0).Rows.Count
Dim hRow As New HtmlTableRow
hRow.Cells.Add(hCell)
lHyperLink(lRowCount) = New LinkButton()
lHyperLink(lRowCount).Text = "Hello"
lHyperLink(lRowCount).ID = "LBHLink" + lRowCount.ToString
AddHandler lHyperLink(lRowCount).Click, AddressOf lHyperLink_Click
hRow.Cells(lColCount).Controls.Add(lHyperLink(lRowCount))
lRowCount += 1
hTable.Rows.Add(hRow)
End While
tPanel.Controls.Add(hTable)
End Sub