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)