diff --git a/source/main.pas b/source/main.pas
index 3230f770..fa28f673 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1135,13 +1135,13 @@ begin
   FreeAndNil(CreateDatabaseForm);
   FreeAndNil(SearchReplaceDialog);
 
+  // Close database connection
+  DoDisconnect;
+
   // Clearing query and browse data.
   SetLength(DataGridResult.Rows, 0);
   SetLength(DataGridResult.Columns, 0);
 
-  // Close database connection
-  DoDisconnect;
-
   // Save various settings
   OpenRegistry;
   MainReg.WriteInteger(REGNAME_TOOLBAR2LEFT, ToolBarStandard.Left);