diff options
Diffstat (limited to 'wizards/source/access2base/Database.xba')
-rw-r--r-- | wizards/source/access2base/Database.xba | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index c5576f9cfa15..d6b84c1ce163 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -50,12 +50,15 @@ End Sub ' Constructor REM ----------------------------------------------------------------------------------------------------------------------- Private Sub Class_Terminate() On Local Error Resume Next - If _DbConnect = DBCONNECTANY Then + Call CloseAllRecordsets() + If _DbConnect <> DBCONNECTANY Then If Not IsNull(Connection) Then Connection.close() Connection.dispose() Set Connection = Nothing End If + Else + mClose() End If Call Class_Initialize() End Sub ' Destructor |