[Resolvido]Números excessivo de linhas

Boa noite pessoal, estou usando o código abaixo para converter e vou quebrando em linhas, porem chegou no limite, como posso mudar o código para que me atenda, pois vou precisar inserir mais umas 30 linhas.

Código:

CurrentDb.Execute "UPDATE Tbl_Usuario SET CadastroDeclientes =" & IIf(Me!TxtCadastroClientes, -1, 0) & _
   ", CadastroDeProdutos =" & IIf(Me!TxtCadastroDeProdutos, -1, 0) & _
   ", AjusteDoEstoque =" & IIf(Me!TxtAjusteEstoque, -1, 0) & _
   ", EntradaDeMercadorias =" & IIf(Me!TxtEntradaDeMercadorias, -1, 0) & _
   ", Orcamentos =" & IIf(Me!TxtOrçamentos, -1, 0) & _
   ", VendasDeProdutosPelaOC =" & IIf(Me!TxtVendasProdutosPelaOC, -1, 0) & _
   ", DeletarOcVencidos =" & IIf(Me!TxtExcluirOCVencidos, -1, 0) & _
   ", ConsultarOrcamentosGerarRelatorios =" & IIf(Me!TxtConsultarOcEGerarRelatórios, -1, 0) & _
   ", RelatoriosDeProdutosVendidos =" & IIf(Me!TxtRelatoriosDeprodutosVendidos, -1, 0) & _
   ", CadastrarUsuarios =" & IIf(Me!TxtCadastrarUsuarios, -1, 0) & _
   ", PermicaoDeUsuarios =" & IIf(Me!TxtPermiçãoUsuarios, -1, 0) & _
   ", Backup =" & IIf(Me!TxtBackup, -1, 0) & _
   ", LiberarShift =" & IIf(Me!TxtLiberarShirt, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) & _
   ", Propriedade =" & IIf(Me!TxtPropriedade, -1, 0) &
   " WHERE login = '" & Me!CmdLogin & "';"

Carvalho,

utilize uma variável string. Algo assim:

Dim strSql$
strsql ="UPDATE Tbl_Usuario SET CadastroDeclientes =" & IIf(Me!TxtCadastroClientes, -1, 0) 
strsql = strsql & ", CadastroDeProdutos =" & IIf(Me!TxtCadastroDeProdutos, -1, 0)
strsql = strsql & ", AjusteDoEstoque =" & IIf(Me!TxtAjusteEstoque, -1, 0)
...
CurrentDb.Execute strsql

Sucesso!

Show Avelino, como sempre com ótimas dicas, deu super certo, obrigado.