Try

            Conn.Open()
            Dim DA As SqlDataAdapter = New SqlDataAdapter(TempSQLCommand, Conn)
            Dim DT As DataTable = New DataTable()
            DA.Fill(DT)

            Dim objPds As PagedDataSource = New PagedDataSource()
            objPds.DataSource = DT.DefaultView

            objPds.AllowPaging = True

            objPds.PageSize = iPageSizeCount

            Dim curpage As Integer = iCurrenPage

            objPds.CurrentPageIndex = iCurrenPage - 1

            SetNewsArchivePageCount = objPds.PageCount

            iRepeater.DataSource = objPds
            iRepeater.DataBind()
            Conn.Close()
            SetActionResult = "done_NewsArchive"
        Catch exp As Exception
            SetErrorMessage = exp.Message
            SetActionResult = "error_NewsArchive"
            Conn.Close()

        End Try