diff --git a/components/fpreport/design/frafpreportsqldbdata.pp b/components/fpreport/design/frafpreportsqldbdata.pp
index 9c737bb5fc..16ac8276c9 100644
--- a/components/fpreport/design/frafpreportsqldbdata.pp
+++ b/components/fpreport/design/frafpreportsqldbdata.pp
@@ -167,7 +167,9 @@ Var
 begin
   S:=TFPReportConnector.TestConnection(FConnectionData);
   if (S<>'') then
-    MessageDlg(SErrConnectionNotOK,S,mtError,[mbOK],0);
+    MessageDlg(SErrConnectionNotOK,S,mtError,[mbOK],0)
+  else
+    MessageDlg(SSuccess,SConnectionSuccesful,mtInfo,[mbOK],0)
 end;
 
 constructor TSQLReportDataConfigFrame.Create(AOwner: TComponent);
diff --git a/components/fpreport/design/frmfpreportdataconnectioneditor.pp b/components/fpreport/design/frmfpreportdataconnectioneditor.pp
index 5b58bf79a2..d5e15b49cf 100644
--- a/components/fpreport/design/frmfpreportdataconnectioneditor.pp
+++ b/components/fpreport/design/frmfpreportdataconnectioneditor.pp
@@ -61,8 +61,10 @@ var
   ReportConnectionEditorForm: TReportConnectionEditorForm;
 
 Resourcestring
-  SConnectionSuccesful = 'Connection was succesfully made';
+  SConnectionSuccesful = 'Connection to the database was succesfully made.';
   SErrConnectionNotOK = 'Error connecting to the database';
+  SSucces = 'Succesfully connected.';
+
 
 implementation
 
@@ -110,8 +112,9 @@ begin
   FormToParams;
   S:=TFPReportConnector.TestConnection(FParams);
   if (S<>'') then
-    MessageDlg(SErrConnectionNotOK,S,mtError,[mbOK],0);
-
+    MessageDlg(SErrConnectionNotOK,S,mtError,[mbOK],0)
+  else
+    MessageDlg(SSucces,SConnectionSuccesful,mtInfo,[mbOK],0);
 end;
 
 procedure TReportConnectionEditorForm.Setparams(AValue: TJSONObject);