Paging

Question

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim l_fcCanInfo As New fcCanInfo
Dim l_mcCanInfo As New mcCanInfo
Dim tblCan As New HtmlTable
Dim tblCan1 As New DataTable
Dim m_Name As String
'Session("NAME") = "K L Vyas,ARNAV G,Ashok Gurav,B P VAS,D Y Patil,G P Pradhan,JKJK,K M L,Krishna,P N MAN,PPG,Seema J,fdf"
m_ds = l_fcCanInfo.FetchSearchList()
l_mcCanInfo = l_fcCanInfo.Item
tblCan.Width = "420"
tblCan.CellPadding = "0"
tblCan.CellSpacing = "0"
tblCan.Style.Add(HtmlTextWriterStyle.BackgroundImage, "Images/MidCent.PNG")
Dim dc As DataColumn
Dim dr As DataRow
For Each dr In m_ds.Tables(0).Rows
Dim trow As New HtmlTableRow()
For Each dc In m_ds.Tables(0).Columns
Dim tcell As New HtmlTableCell()
Dim lnknm As New LinkButton
lnknm.ID = "lnkName"
tcell.Width = "140"
tcell.Height = "23"
If dc.ColumnName = "NAME" Then
lnknm.Text = dr(dc.ColumnName).ToString
tcell.Controls.Add(lnknm)
trow.Cells.Add(tcell)
m_Name = lnknm.Text
lnknm.PostBackUrl = "ShowInfo.aspx?&NAME=" & lnknm.PostBackUrl + lnknm.Text
Else
tcell.InnerText = dr(dc.ColumnName).ToString
trow.Cells.Add(tcell)
End If
Next
tblCan.Rows.Add(trow)
Next
Panel1.Controls.Add(tblCan)
End Sub
 
this my code i want paging in this