ho corretto la stringa
codice:
Pagine=(TotRecord/RecPerPagina)+1
con
codice:
Pagine=Cint(TotRecord/RecPerPagina) + 1
ma l'errore resta