在.net中,大数据量下的列表显示分页如何处理？

Private Sub DlistBind(ByVal SqlStr As String, ByVal Dlst As DataList, ByVal PgNum As Integer)
Dim Conn As New SqlConnection(ConnStr)
Conn.Open()
Dim Adpt As New SqlDataAdapter(SqlStr, Conn)
Dim Ds As New DataSet
Adpt.Fill(Ds, "iTable")
Dim TotalRec As Integer = Ds.Tables.Item(0).Rows.Count
ShowTotalRec.Text = "当前共 " & TotalRec & " 部作品"
Dim TotalPage As Integer
If TotalRec < Pagec Then
TotalPage = 1
Else
If TotalRec Mod Pagec <> 0 Then
TotalPage = TotalRec \ Pagec + 1
Else
TotalPage = TotalRec / Pagec
End If
End If
ShowTotalPage.Text = TotalPage
ShowCurrentPage.Text = PgNum
Dim Tempi As DataTable = Ds.Tables.Item(0).Clone
Dim m, n As Integer<