SQLConfig: set DialogResult

SQLConfig/frmSQLConfig.vb

@@ -1,4 +1,5 @@
-Imports System.Data.SqlClient
+Imports System.ComponentModel
+Imports System.Data.SqlClient
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Filesystem
 Imports DigitalData.Modules.Logging
@@ -139,4 +140,12 @@ Public Class frmSQLConfig
             MsgBox("Error while connecting to Database", MsgBoxStyle.Critical, Text)
         End Try
     End Sub
+
+    Private Sub frmSQLConfig_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        If ConnectionString <> String.Empty Then
+            DialogResult = DialogResult.OK
+        Else
+            DialogResult = DialogResult.Cancel
+        End If
+    End Sub
 End Class