VB控制ACCESS的问题

samsonbox

在VB6中编写个BOTTOM1和BOTTOM2,点击执行以下程序

bottom1的程序

Dim objACC As Object

Set objACC = CreateObject("Access.Application")

objACC.OpenCurrentDatabase "c:\db1.mdb"

DoCmd.TransferSpreadsheet acImport, 8, "a", "c:\a.xls", True, ""

objacc.quit

set objacc=noting

bottom2的程序

Dim objACC As Object

Set objACC = CreateObject("Access.Application")

objACC.OpenCurrentDatabase "c:\db2.mdb"

DoCmd.TransferSpreadsheet acImport, 8, "b", "c:\b.xls", True, ""

objacc.quit

set objacc=noting

运行的时候,第一次按BOTTOM1执行正常,在不退出程序就按BOTTOM2的时候

提示出错,说网络服务什么的,不是独占打开……

请高手指点，怎么解决，是否objacc不能释放而导致的错误？谢谢……