Vejam isso, onde esta o erro na programação:

SQL = ("Insert into parcelamento_venda(codigo_orcamento, parcela, valor, vencimento) values ('" & lbl_n_orcamento & "', '" & Format(txt_parcela.Text, "00") & "', '" & Replace(txt_valor_parcela.Value, ",", ".") & "', '" & Format(dt_data_parcela.Value, "yyyy-mm-dd") & "'")
cn.Execute SQL

ATT.

Vanderlei A M Lamazale