miren esta paginacion

[meru-kun]

txtPaginasTotales = MyRecordset.PageCount

Para ello tienes que abirr la DB ASI:
' ****** VARIABLES PARA PAGINAR ******
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
Const adCmdText = &H0001
Const adOpenStatic = 3

TamPagina = 15 ' ** AQUI EL TAMAÑO QUE QUIERA

strSQLR = "SELECT * FROM TABLA ORDER BY ID ASC"
' Defino el tamaño de las páginas
MyRecordset.PageSize = TamPagina
MyRecordset.CacheSize = TamPagina

MyRecordset.Open strSQLR, myMensConn, adopenstatic, adcmdtext

PaginasTotales = MyRecordset.PageCount

[...]