opendatabase中的options参数怎用
Sub op()
Dim dbnew As Database
Dim dbagain As Database
Set dbnew = OpenDatabase(CurDir + "\db1", True) 'True
'按照书上所写以独占方式打开db1.mdb
Set dbagain = OpenDatabase(CurDir + "\db1", True)
dbnew.Close
dbagain.Close
End Sub
本以为会有错,可是运行后没出错,
db1.mdb已经以独占方式打开,
为何还能打开db1.mdb,
怎麽回事儿,我写错了吗?