Private Shared Sub UnhandledExceptionFound(ByVal e As UnhandledExceptionFoundEventArgs)
        '-- ToDo: add any error logging required.  To prevent the StrataFrame ApplicationErrorForm from showing,
        '   set:
        '   e.Handled = true
 
        '-- If we get an error with the connection and the user is the Administrator then show the 
        '   the Available Connection Strings
        If e.UnhandledException.Source.IndexOf("SqlClient") > 0 AndAlso Basics.IsAdministrator() Then
            frmSplashScreen.HideSplash()

            ConnectionManager.ShowAvailableConnectionStrings()
            ConnectionManager.SetConnections()

            frmSplashScreen.ShowSplash()
            e.Handled = True
        End If
 
        '-- email the error to Progytech
        SendErrorMessageViaEmail(e.UnhandledException)
 
    End Sub