Call StampaReport(NomeDB, "NomeReport", "CampoReport = "
variabile, "Stampare?")

Sub StampaReport(NomeDB As String, NomeReport As String, crit As String, msg As String)
'Questa funzione stampa un report presente nel DB.
'stampa un report di Access
On Error GoTo errore

If MsgBox(msg, 36) = vbYes Then
Dim miaAccessApp As Access.Application
Set miaAccessApp = New Access.Application

miaAccessApp.OpenCurrentDatabase NomeDB
miaAccessApp.DoCmd.OpenReport NomeReport, , , crit

miaAccessApp.CloseCurrentDatabase
End If
Exit Sub

errore:
MsgBox Err.Description

End Sub
Spero che sia questo che ti serve...