Paging med en Repeater

hallå igen...

Jag vill att inläggen i gästboken ska ha en gammal hederlig "paging". Och givetvis så var det inte
lika lätt att fixa det i en repeater som det var i en datagrid.

Har kollat runt på nätet en del och noterat att det finns några alternativ men inte kunnat klura
ut "när var hur", typ

Tacksam för alla uppslag som kan styra till en paging till min gästbok

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        Dim mId As Integer
        If IsNumeric(Request.QueryString("mId")) Then
            mId = Request.QueryString("mId")
            mId = 1
        Else
            mId = 0
        End If

        If Not IsPostBack Then
            Repeater1.DataSource = CreateDataSource("SELECT * FROM tblGuestbook_Comments WHERE tblGuestbook_Comments.guestbookID = 1" & " order by tblGuestbook_Comments.AddDate desc", mId)
            Repeater1.DataBind()
        End If

    End Sub

    Public Function CreateDataSource(ByVal SQL As String, ByVal mId As Integer) As ICollection

        Dim sLink As String

        Dim Conn As New SqlConnection(strConn)
        Dim Command As New SqlCommand(SQL, Conn)
        Conn.Open()

        Try
            Dim Reader As SqlDataReader
            Reader = Command.ExecuteReader()
            Dim dt As New DataTable
            Dim dr As DataRow
            Dim rComments
            dt.Columns.Add(New DataColumn("tbGbookHeaderRep", GetType(String)))
            dt.Columns.Add(New DataColumn("tbGbookDateRep", GetType(String)))
            dt.Columns.Add(New DataColumn("tbGbookCommentRep", GetType(String)))
            dt.Columns.Add(New DataColumn("tbGbookNameRep", GetType(String)))
            dt.Columns.Add(New DataColumn("tbGbookEmailRep", GetType(String)))

            While Reader.Read
                dr = dt.NewRow()
                dr(0) = Reader("Rubrik").ToString
                dr(1) = Reader("AddDate").ToString
                dr(2) = Reader("comments").ToString
                dr(3) = Reader("name").ToString
                dr(4) = Reader("email").ToString
                dt.Rows.Add(dr)

            End While
            Reader.Close()
            Dim dv As New DataView(dt)
            Return dv
        Catch ex As SqlException
            Response.Write(ex.Message)
        Finally
            Conn.Close()
        End Try
    End Function

Tack för uppmärksamheten
mvh/ TT