Hola!!
Código vb:
Ver originalsql = "insert into facturas (numfacPri, numfacSec, " _
& "fechafac, CodCli, Nombredecliente, Domicilio, Localidad, ConddeVenta, NrodeCUIT, NumRemito, " _
& "Cant1, Cant2, Cant3, Cant4, Cant5, Cant6, codart1 , codart2, codart3, codart4, codart5, codart6, " _
& "Importe1, Importe2, Importe3, Importe4, Importe5, Importe6, Total, Subtotal, Pesos) Values (" _
& lblNumfacPri.Caption & ", " & lblNumfacSec.Caption & ", '" & lblFecha & "', " & CodCli _
& ", '" & cmbNombre & "', '" & txtDomicilio.Text & "', '" & txtLocalidad.Text & "', '" _
& txtCond.Text & "', " & txtCuit.Text & ", '" & txtRemito.Text & "', " & txtCant.Text & ", " _
& txtCant2.Text & ", " & txtCant3.Text & ", " & txtCant4.Text & ", " & txtCant5.Text & ", " _
& txtCant6.Text & ", '" & codart1 & "', '" & codart2 & "', '" & codart3 & "', '" & codart4 _
& "', '" & codart5 & "', '" & codart6 & "', " & txtImp.Text & ", " & txtImp2.Text & ", " _
& txtImp3.Text & ", " & txtImp4.Text & ", " & txtImp5.Text & ", " & txtImp6.Text & ", " _
& txtTotal.Text & ", " & txtSubtotal.Text & ", " & txtPesos.Text & ")"
Verifica que todo guarde correctamente!