diff options
Diffstat (limited to 'wizards/source/access2base/Database.xba')
-rw-r--r-- | wizards/source/access2base/Database.xba | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 3bd3bced482b..2a61d7e3c73a 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -227,8 +227,11 @@ Const cstThisSub = "Database.Close" mClose = False If _DbConnect <> DBCONNECTANY Then Goto Error_NotApplicable - Connection.close() - Connection.dispose() + With Connection + .flush + .close() + .dispose() + End With Set Connection = Nothing mClose = True |