[Resolvido]Erro de sintaxe "INSERT INTO"

Tenho um formulário criado a partir de uma tabela com a função de indicar por qual vendedor o cliente veio. A tabela me trás algumas informações como nome cliente, nome contato, telefone e etc. Criei 4 botões (1 para cada vendedor) para que eu indique por onde cada cliente veio, a medida que novos clientes vão surgindo. Criei um cod VBA para alimentar uma tabela, porém esta me dando um erro 3134 . "erro de sintaxe na instrução INSERT INTO". Dei uma pesquisada e parece que é algo a respeito de números com virgulas, porem não conseguir resolver meu problema. O código vba esta funcionando pois ao passar o mouse sobre os códigos ele mostra a nome do cliente que iria puxar e esta batendo. Porem ao simular clicando no botão ele apresenta esse erro.. Segue o cod:

Private Sub JACOB_Click()

SQL = "INSERT INTO tb_vendedores(CLIENTE_NOME,CONTATO_NOME,TEL,DATA_PEDIDO,MEIO,VALOR) VALUES ('" & Me.CLIENTE_NOME.Value & "','" & Me.CLIENTE_CONTATO.Value & "','" & Me.CLIENTE_TELEFONE.Value & "',#" & Now() & "#,'JACOB','" & Me.ÚltimoDeTOTAL_PEDIDO.Value & "',)"
CurrentDb.Execute SQL ---> (ele me destaca essa parte em amarelo quando da o erro)

End Sub

No caso vou repetir todo o código para os próximos 3 vendedores...

Obs: no valor "data_pedido" meu objetivo era colocar a data que o formulário me trás, porém não sei fazer isso, quais símbolos usar, por isso utilizei a data de hoje, apenas para teste. Se puderem me ajudar nisso também..

Muito obrigado.

Ola werlewow,

Na instrução de INSERT não existe a necessidade de incluir o "#" para datas.
Substitua sua instrução pela seguinte:

SQL = "INSERT INTO tb_vendedores"
SQL = SQL & " ("
SQL = SQL & " CLIENTE_NOME"
SQL = SQL & " ,CONTATO_NOME"
SQL = SQL & " ,TEL"
SQL = SQL & " ,DATA_PEDIDO"
SQL = SQL & " ,MEIO"
SQL = SQL & " ,VALOR"
SQL = SQL & " ) "
SQL = SQL & " VALUES "
SQL = SQL & " ("
SQL = SQL & " '" & Me.CLIENTE_NOME.Value & "'"
SQL = SQL & " ,'" & Me.CLIENTE_CONTATO.Value & "'"
SQL = SQL & " ,'" & Me.CLIENTE_TELEFONE.Value & "'"
SQL = SQL & " ,'" & Format(Now(), "yyyy-mm-dd") & "'"
SQL = SQL & " ,'JACOB'"
SQL = SQL & " ,'" & Me.ÚltimoDeTOTAL_PEDIDO.Value & "',"
SQL = SQL & " )"
CurrentDb.Execute SQL


Até mais,

Abs

O erro de sintaxe está numa vírgula a mais no final da instrução dos dois.

Ops...é vdd JPaulo.

Obrigado por observar.

Abs

Deu certo! muito obrigado a todos!!