Dim binding As New WSHttpBinding() binding.MaxReceivedMessageSize = 147483647 binding.Security.Mode = SecurityMode.None binding.Security.Message.ClientCredentialType = MessageCredentialType.Windows binding.Security.Message.EstablishSecurityContext = True binding.Security.Message.NegotiateServiceCredential = True binding.Security.Transport.ClientCredentialType = HttpClientCredentialType.Windows binding.Security.Transport.ProxyCredentialType = HttpProxyCredentialType.None Dim address As New EndpointAddress(URL) Return New mmDataAccessWCFSql(binding, address)