diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index c23927ad..85e4d6fd 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -2703,6 +2703,7 @@ var
   ForeignKey: TForeignKey;
   Collations: TDBQuery;
 begin
+  Ping(True);
   if Assigned(Columns) then Columns.Clear;
   if Assigned(Keys) then Keys.Clear;
   if Assigned(ForeignKeys) then ForeignKeys.Clear;