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