Dim objACC As Object
Set objACC = CreateObject(Access.Application)
objACC.OpenCurrentDatabase c:\db.mdb
objACC.DoCmd.OpenReport 表报一
objACC.Quit
Set objACC = Nothing
Dim objACC As Object
Set objACC = CreateObject(Access.Application)
objACC.OpenCurrentDatabase c:\db.mdb
objACC.DoCmd.OpenReport 表报一
objACC.Quit
Set objACC = Nothing