Dim miaAccessApp As Access.Application
Set miaAccessApp = New Access.Application
Dim mioReport As Access.Report

miaAccessApp.OpenCurrentDatabase NomeDB
miaAccessApp.DoCmd.OpenReport NomeReport, , , criterio*
miaAccessApp.CloseCurrentDatabase

*=filtro di selezione

spero di esserti stata utile.


PS: ho fatto una domanda sul forum. Gli dai un'occhiata, please?