When publish my application on the iis server below function not working..

Public Shared Sub Connection()
        Try
            factory = CreateObject("CacheObject.Factory")
            If Not factory.IsConnected() Then
                Dim connectstring As String
                connectstring = ConfigurationManager.AppSettings.Get("con")
                Dim success As Boolean
                success = factory.Connect(connectstring)
            End If