Risolto con:
Protected Sub ListView1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DataBound
Dim pager As DataPager = TryCast(ListView1.FindControl("DataPager1"), DataPager)
If Not String.IsNullOrEmpty(pager.QueryStringField) Then
For Each Pitem As DataPagerFieldItem In pager.Controls
For Each c As Control In Pitem.Controls
If TypeOf c Is HyperLink Then
Dim tmp As HyperLink = TryCast(c, HyperLink)
tmp.NavigateUrl = "~/Catalogo/Pag" & tmp.Text.ToString() & "/" & Request.QueryString("sm") & ".aspx"
End If
Next
Next
End If
End Sub