'References MS Access 8.0 Object LibraryDim MSAccess as Access.Application set MSAccess=new Access.Application MSAccess.OpenCurrentDatabase(strYourMDBPath) MSAccess.Docmd.OpenReport strYourreport,acViewNormal 'do your event MSAccess.CloseCurrentDatabase set MSAccess=Nothing
set MSAccess=new Access.Application
MSAccess.OpenCurrentDatabase(strYourMDBPath)
MSAccess.Docmd.OpenReport strYourreport,acViewNormal
'do your event
MSAccess.CloseCurrentDatabase
set MSAccess=Nothing