Private WithEvents mcrptSverka As Report ' где то присваиваем переменной отчет
Private WithEvents SvDetail As [_SectionInReport] ' где то присваиваем этой переменной объект секция отчета 
Private  Recordcountcol& ' количество строк

Private Sub KolStrok()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(reportsiorce, dbOpenSnapshot)
' mcrptSverka.recordset - возможен в ADO, в DAO недоступен
With rst
    .MoveLast 
    Recordcountcol = .RecordCount ' получили число строк в запросе
End With
rst.Close
Set rst = Nothing
End Sub
' в событие форматирование отчета вставляем условие проверки...
Private Sub SvDetail_Format(Cancel As Integer, FormatCount As Integer)
If mcrptSverka.CurrentRecord = Recordcountcol - 1 Then mcrptSverka.Section(0).ForceNewPage = 1 Else mcrptSverka.Section(0).ForceNewPage = 0
'Debug.Print Recordcountcol; Tab; mcrptSverka.CurrentRecord; Tab; mcrptSverka.Section(0).ForceNewPage
End Sub