Helo I have a problem to cut the code here:
conexao.Execute ("Insert into dados_anterior (VALOR_SERVICO_FRAC,SINAL,IDENT_RESP_RESULTADO,SIG LA_ORGAO_OFENSOR,COD_TIPO_CONTESTACAO,COD_DDD,NUM_ EMISSAO,COD_NATUREZA_CONTESTACAO,ESTACAO,DATA_PROX IMA_SELECAO,DATA_PROX_VENCIMENTO)values('" & VALORSERVICOFRAC & "','" & SINAL & "','" & IDENTRESPRESULTADO & "','" & SIGLAORGAOOFENSOR & "','" & CODTIPOCONTESTACAO & "','" & CODDDD & "','" & NUMEMISSAO & "','" & CODNATUREZACONTESTACAO & "','" & ESTACAO & "','" & TDATAPROXIMASELECAO & "','" & TDATAPROXVENCIMENTO & "')")


This code is too big, because its too many fields , so the line in vba don´t support this so how can i subdvide the code using more fileds in the same INSERT command like
A =VALOR_SERVICO_FRAC, IDENT_RESP_RESULTADO,SIGLA_ORGAO_OFENSOR

conexao.Execute ("Insert into dados_anterior (' A') values (..)