[Resolvido]Dificuldade com INSERT INTO longo demais

Como meu BD é MySQl, portanto desvinculado, uso instruções SQL para inserir os dados no BD, porém em alguns casos a instrução está ficando longa demais e o Access não suporta! Já dividi em duas linhas, mas mesmo assim ainda está longa, alguém tem alguma dica ou solução?

Eu até poderia inserir com menos dados e imediatamente fazer um UPDATE dos dados restantes, mas prefiro deixar tudo na instrução INSERT se eu conseguir achar uma solução...

cnn.Execute "INSERT INTO tbl_Produto (Produto,Grupo,TipoProduto,Classe,Obs,EmbPRE,NCM,UndEmb,Peso,Comercial,Comercial2,Catalogo,EmbDiam,EmbEstrias,MAJDiam,InnerDiam,PCD,Dim1,Dim2,Dim3,Dim4,Pack1,Pack2,Conteudo,Volante,SldEstoque,CustoMedio,Comissao,ExTipi,Origem,PesoBruto,UndCom,DescricaoNF,clEnq,cEnq,vTotTrib,StatusCom,Status,Data,User) " & _
"VALUES('" & StrConv(Me.Produto, 1) & "'," & Me.GrupoProd & "," & Me.TipoProduto & ",'" & StrConv(Me.Classe, 1) & "','" & StrConv(Me.Obs, 1) & "','" & Me.Pre & "','" & Me.NCM & "','" & Me.UndEmb & "','" & Replace(Me.Peso, ",", ".") & "','" & Me.Comercial & "','" & Me.Comercial2 & "','" & Me.Catalogo & "','" & Me.EmbDiam & "','" & Me.EmbEstrias & "','" & Me.MAJDiam & "','" & Me.InnerDiam & "','" & Me.PCD & "','" & Me.Dim1 & "','" & Me.Dim2 & "','" & Me.Dim3 & "','" & Me.Dim4 & "','" & Me.Pack1 & "','" & Me.Pack2 & "','" & StrConv(Nz(Me.Conteudo, ""), 1) & "','" & StrConv(Nz(Me.Volante, ""), 1) & "',0,0,'" & Replace(Me.Comissao, ",", ".") & "'," & Nz(Me.NCMExc, "") & "," & Me.Origem & ",'" & Replace(Nz(Me.PesoBruto, 0), ",", "."') & ",'" & Nz(Me.Und, "") & "','" & StrConv(Nz(Me.DescricaoNF, ""), 1) & "','" & Nz(Me.clEnq, "") & "','" & Nz(Me.cEnq, "") & "','" & Nz(Me.vTotTrib, "") & "','" & StrConv(Nz(Me.StatusCom, ""), 1) & "','ATIVO','" & Now() & "','" & getUsuarioAtual() & "')

A sua instrução tinha um erro;

Teste desta forma;

Código:

cnn.Execute "INSERT INTO tbl_Produto" _
& " (Produto,Grupo,TipoProduto,Classe,Obs,EmbPRE,NCM,UndEmb,Peso,Comercial,Comercial2,Catalogo," _
& " EmbDiam,EmbEstrias,MAJDiam,InnerDiam,PCD,Dim1,Dim2,Dim3,Dim4,Pack1,Pack2,Conteudo,Volante,SldEstoque," _
& " CustoMedio,Comissao,ExTipi,Origem,PesoBruto,UndCom,DescricaoNF,clEnq,cEnq,vTotTrib,StatusCom,Status,Data,User) " _
& " VALUES('" & StrConv(Me.Produto, 1) & "'," & Me.GrupoProd & "," & Me.TipoProduto & ",'" & StrConv(Me.Classe, 1) & "'," _
& " '" & StrConv(Me.Obs, 1) & "','" & Me.Pre & "','" & Me.NCM & "','" & Me.UndEmb & "','" & Replace(Me.Peso, ",", ".") & "'," _
& " '" & Me.Comercial & "','" & Me.Comercial2 & "','" & Me.Catalogo & "','" & Me.EmbDiam & "','" & Me.EmbEstrias & "','" & Me.MAJDiam & "'," _
& " '" & Me.InnerDiam & "','" & Me.PCD & "','" & Me.Dim1 & "','" & Me.Dim2 & "','" & Me.Dim3 & "','" & Me.Dim4 & "','" & Me.Pack1 & "'," _
& " '" & Me.Pack2 & "','" & StrConv(Nz(Me.Conteudo, ""), 1) & "','" & StrConv(Nz(Me.Volante, ""), 1) & "',0,0,'" & Replace(Me.Comissao, ",", ".") & "'," _
& " " & Nz(Me.NCMExc, "") & "," & Me.Origem & ",'" & Replace(Nz(Me.PesoBruto, 0), ",", ".") & "','" & Nz(Me.Und, "") & "','" & StrConv(Nz(Me.DescricaoNF, ""), 1) & "'," _
& " '" & Nz(Me.clEnq, "") & "','" & Nz(Me.cEnq, "") & "','" & Nz(Me.vTotTrib, "") & "','" & StrConv(Nz(Me.StatusCom, ""), 1) & "','ATIVO','" & Now() & "','" & getUsuarioAtual() & "')"


Valeu Mestre! Problema resolvido!

Obrigado pelo retorno o forum agradece.