Public Sub showInfo()
      
        Dim xmlDoc As New XmlDocument
        Dim strPath As String = Application.ExecutablePath()
        Dim intIndex As Integer = strPath.LastIndexOf("\")
        Dim intCalcComplexity As Integer = 0

        strPath = strPath.Substring(0, intIndex)

        Try
            'Load the xml file
            xmlDoc.Load(strPath + "\dbSummary.xml")


            If (Not xmlDoc Is Nothing) Then
                'intCalcComplexity = xmlDoc.SelectSingleNode("/CalcComplexity").Value
                intCalcComplexity = Convert.ToInt32(xmlDoc.SelectSingleNode("NewDataSet/ProcessedDatabaseStats/CalcComplexity").InnerText)

            End If
        Catch ex As Exception

        End Try

        lblRating.Text = intCalcComplexity.ToString()
        If (intCalcComplexity > 0) Then
            If My.Computer.Network.IsAvailable Then
                Me.lblrank.Text = SSW.SQLAuditor.Business.DataAnalysis.DataAnalysisManager.SingleTonDataAnalysisManager.getRank(intCalcComplexity).ToString()
            End If
        End If


        Dim arr() As String
        If lblrank.Text.Length <> 0 Then
            arr = Split(lblrank.Text, "/")
            If arr.Length <> 0 Then
                Dim num As Integer = Int32.Parse(arr(0))
                Dim dem As Integer = Int32.Parse(arr(1))
                Me.tbrpercentile.Maximum = 10
                Me.tbrpercentile.Value = num * 10 / dem
            End If
        End If

        Me.StatusControl1.State = Framework.WindowsUI.StatusControlStates.Pass
        Me.StatusControl1.StatusMessage = "You have refreshed database."
    End Sub