Dim channel_factory As ChannelFactory(Of UnifyService.EnquiryServiceChannel)
  channel_factory = New ChannelFactory(Of UnifyService.EnquiryServiceChannel)("AccessPoint")
        'initialize secuirty credentials for the channel
        channel_factory.Credentials.UserName.UserName = "uname"
        channel_factory.Credentials.UserName.Password = "pword"

Public Sub disposeConnection()
    If channel_factory IsNot Nothing Then
        channel_factory.Close()
        If channel_factory.State = CommunicationState.Opened Then
            channel_factory.Abort()
        End If


    End If
End Sub