Supongo que dependiendo del numero de páginas, tendrás que imprimir un paginador, este paginador es el encargado de pasar la página solicitada del recordset y la propiedad será absolutePage.
fíjate en esta condición:
Código:
If rs.RecordCount > intPageSize And intPageSize > 0 Then
rs.PageSize = intPageSize
rs.AbsolutePage = intPage
m_TotalPages = rs.PageCount
Else
m_TotalPages = 1
End If
Todos estos son argumentos que recibe mi función:
Código:
Public Function List(intPage,intPageSize,intDeptID,strLetter,intLive,strOrder)
Salu2,