Pessoal o que tem de errado aqui:
vPeso_Total_Bruto = 0
vPeso_Total_Liquido = 0
vTotal_Ipi = 0
vPeso_Total_Bruto = txt_quantidade_produto.Value * txt_peso_bruto.Value
vPeso_Total_Liquido = txt_quantidade_produto.Value * txt_peso_liquido.Value
vTotal_Ipi = txt_valor_total.Value * (txt_aliquota_ipi.Value / 100)
ado_produto_lancado.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=winner'"
SQL = "insert into venda_b (codigo_orcamento, codigo_barra, descricao_produto, codigo_um, aliquota_ipi, valor_ipi," _
& "aliquota_icms, reducao_icms, valor_fixo, valor_custo, margem_atacado,margem_varejo,valor_promocao, quantidade," _
& "valor_final, codigo_produto, data_entrega, valor_icms, valor_total, orc_val," _
& "cod_venda, peso_total_bruto, peso_total_liquido, cod_depto, desc_depto, " _
& "cod_familia, cod_sub_familia, codigo_cliente, data_venda, descreva_produto, numero_notafiscal, perc_comissao) values ('" & txt_n_orcamento & "', " _
& "'" & txt_codigo_barras_produto.Text & "', '" & txt_descricao_produto.Text & "', '" & lbl_um.Caption & "', '" & Format(txt_aliquota_ipi.Text, "##,##0.00") & "', " _
& "'" & "0,00" & "', '" & Format(txt_aliquota_icms.Text, "##,##0.00") & "', " _
& "'" & Format(txt_reducao_icms.Text, "##,##0.00") & "', vpreco, '" & Format(txt_valor_custo.Text, "##,##0.00") & "', '" & "0,00" & "', '" & "0,00" & "', '" & "0,00" & "', '" & Format(txt_quantidade_produto.Text, "##,##0.0000") & "'," _
& "'" & Format(txt_vlr_unitario.Text, "##,##0.00") & "', '" & txt_codigo_produto.Text & "', '" & Format(dt_data_entrega.Value, "dd/mm/yyyy") & "', '" & "0,00" & "', '" & Format(txt_valor_total.Text, "##,##0.00") & "', " _
& "'" & "orc" & "', '" & lbl_n_venda.Caption & "', '" & Format(vPeso_Total_Bruto, "##,##0.0000") & "', " _
& "'" & Format(v_peso_total_liquido, "##,##0.00") & "', '" & txt_departamento.Text & "', '" & lbl_departamento.Caption & "', " _
& "'" & lbl_familia & "', '" & lbl_subfamilia & "', '" & txt_codigo_cliente.Text & "', " _
& "'" & Format(dt_data_emissao.Value, "dd/mm/yyyy") & "', '" & txt_complemento.Text & "', '" & "S/Emis" & "', '" & "0,00" & "'"
cn.Execute SQL
OLha a mensagem que aparece:
[mysql] [odbc 3.51 driver] [mysqld-5.0.67-community-nt]you have an error ir your sql syntax; check the manual that coresponds to your mysql server version for the right syntax to use near at line 1
