it's a example:
Dim MSAccess As Access.Application
Private sub Command1_Click()
¡¡¡¡Set MSAccess=NEW Access.Application
¡¡¡¡MSAccess.OpenCurrentDatabase(App.Path & "\data.mdb")
¡¡¡¡
¡¡¡¡MSAccess.DoCmd.OpenReport "rptMyData",acViewNormal
¡¡¡¡MSAccess.CloseCurrentDatabase
¡¡¡¡Set MSAccess=Nothing
End Sub