It could be that the lacddb file does not have a chance to update and is giving old info. You could pause your code by calling 3 or 4 seconds with a function like this
Code:
Function BeginStop(intTime As Integer)
Dim dblCount As Double
dblCount = DateAdd("s", intTime, Now)
While DateDiff("s", Now, dblCount) > 0
Wend
MsgBox "Time is up"
End Function
Another option may be to not have the DB in Exclusive mode when closing. A third option may be to look for the lacddb file's existence using FileSystemObject. Since the issue is "Exclusive" the existence of the lacddb would indicate you cannot open the DB yet.