Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
Dim objACC As Object
Set objACC = CreateObject("Access.Application")
objACC.OpenCurrentDatabase "c:\db.mdb"
objACC.DoCmd.OpenReport "表报一"
objACC.Quit
Set objACC = Nothing