Private Sub SetDatabaseConnection()

     Dim customViewSecurityKey As String = "DatabaseConnection"

     If SecurityBasics.CurrentUser.GetPermission(customViewSecurityKey).Action = PermissionAction.Deny Then

          '-- Establish locals

          Dim loEventArgs As CheckSecurityEventArgs

          '-- Create the event args

          loEventArgs = New CheckSecurityEventArgs(customViewSecurityKey)

          '-- Raise the denied event

          Me.OnSecurityDenied(New SecurityDeniedEventArgs(customViewSecurityKey, loEventArgs.PermissionInfo), True)

          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

     End If

End Sub