以下为引用的内容:
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
中.国.站.长.站