S shannon Jul 28, 2003 #2 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
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