Public Function EncryptConnectionString(ByVal stringValue As String) As String
        Dim b As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(stringValue)
        Dim encryptedConnectionString As String = Convert.ToBase64String(b)
        Return encryptedConnectionString
    End Function

    ''' <summary> 
    ''' Method to Decrypt the string using Base64String algorithum 
    ''' </summary> 
    ''' <param name="stringValue">stringValue</param> 
    ''' <returns>Decrypted string</returns> 
    Public Function DecryptConnectionString(ByVal stringValue As String) As String
        Dim b As Byte() = Convert.FromBase64String(stringValue)
        Dim decryptedConnectionString As String = System.Text.ASCIIEncoding.ASCII.GetString(b)
        Return decryptedConnectionString
    End Function