''' <summary>
    ''' Sets the database connection
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub SetDatabaseConnection()
        '-- Check security for this module
        If Not Basics.HasPermission("Database Connection") Then
            Exit Sub
        End If

        '-- Show the connection dialog and allow a connection to be selected
        If MicroFour.StrataFrame.Data.ConnectionManager.ShowAvailableConnectionStrings() Then
            '-- Since a connection was selected, then all of the existing dialogs need to be closed
            '   since their connection is established to the original source.
            For Each loForm As Form In Me.MdiChildren
                loForm.Close()
                loForm.Dispose()
            Next

            '-- Force the connections to be reset
            MicroFour.StrataFrame.Data.ConnectionManager.SetConnections()

            '-- Set the Connection label on the status bar
            Me.RibbonControl_MainForm.Items("sbConnectedToItem").Caption = "Connected to: " & GetApplicationActiveConnectionStringTitle(ConnectionManager.ApplicationKey, "")
        End If
    End Sub