diff --git a/source/mysql_connection.pas b/source/mysql_connection.pas
index a1ff2916..04fcef58 100644
--- a/source/mysql_connection.pas
+++ b/source/mysql_connection.pas
@@ -1280,29 +1280,31 @@ begin
     end;
     if Assigned(Results) then begin
       while not Results.Eof do begin
-        obj := TDBObject.Create;
-        Result.Add(obj);
-        obj.Name := Results.Col('Name');
-        obj.Database := db;
-        obj.Rows := -1;
-        Obj.Size := -1;
-        Obj.NodeType := lntEvent;
-        Obj.Created := 0;
-        Obj.Updated := 0;
-        Obj.Engine := '';
-        Obj.Comment := '';
-        Obj.Version := -1;
-        Obj.AutoInc := -1;
-        Obj.RowFormat := '';
-        Obj.AvgRowLen := -1;
-        Obj.MaxDataLen := -1;
-        Obj.IndexLen := -1;
-        Obj.DataLen := -1;
-        Obj.DataFree := -1;
-        Obj.LastChecked := 0;
-        Obj.Collation := '';
-        Obj.CheckSum := -1;
-        Obj.CreateOptions := '';
+        if Results.Col('Db') = db then begin
+          Obj := TDBObject.Create;
+          Result.Add(obj);
+          Obj.Name := Results.Col('Name');
+          Obj.Database := db;
+          Obj.Rows := -1;
+          Obj.Size := -1;
+          Obj.NodeType := lntEvent;
+          Obj.Created := 0;
+          Obj.Updated := 0;
+          Obj.Engine := '';
+          Obj.Comment := '';
+          Obj.Version := -1;
+          Obj.AutoInc := -1;
+          Obj.RowFormat := '';
+          Obj.AvgRowLen := -1;
+          Obj.MaxDataLen := -1;
+          Obj.IndexLen := -1;
+          Obj.DataLen := -1;
+          Obj.DataFree := -1;
+          Obj.LastChecked := 0;
+          Obj.Collation := '';
+          Obj.CheckSum := -1;
+          Obj.CreateOptions := '';
+        end;
         Results.Next;
       end;
       FreeAndNil(Results);