Единственное, о чем я могу думать, это не изящно:
Создайте скрытую форму с интервалом таймера 10 секунд (или любым другим интервалом, который вам нужен). Когда срабатывает событие таймера форм, выполните итерацию по коллекции открытых отчетов, закройте и заново откройте каждый найденный.
Что-то вроде:
Public Sub RefreshOpenReports()
Dim rpt As Report
With Reports
' Iterate over all open reports...
For Each rpt In Reports
rpt.Requery
Next
End With
End Sub