--- ibx/trunk/examples/DBAdmin/dlg/ExecuteSQLScriptDlgUnit.pas	2019/01/18 13:35:28	271
+++ ibx/trunk/examples/DBAdmin/dlg/ExecuteSQLScriptDlgUnit.pas	2019/02/04 13:34:37	272
@@ -103,8 +103,8 @@ end;
 procedure TExecuteSQLScriptDlg.FormShow(Sender: TObject);
 begin
   PageControl1.ActivePage := SelectTab;
-  ServerName.Text := DatabaseData.ServerName;
-  DBName.Text := DatabaseData.DatabaseName;
+  ServerName.Text := DBDataModule.ServerName;
+  DBName.Text := DBDataModule.DatabaseName;
   SourceFileName.Text := '';
   Report.Lines.Clear;
 end;