Error VB

[Ana_pm]

Hola a tod@s:
Tengo un problema y no se como resolverlo, a ver si me podeis hechar una mano. El error que me da es el siguiente:

Error '2147217900 (80040e14)' en tiempo de ejecucción:
No son posibles esa combinación de descuentos.

El codigo es el siguiente:
vVacio = "CONVERT(Money, 0)"
vTotalbase = "CONVERT(Money, " & CDbl(TxtTotalBase.Text) & ")"
vTDtoPP = "CONVERT(Money, " & CDbl(txtTotalDtoPP.Text) & ")"
vTDtoCabece = "CONVERT(Money, " & CDbl(txtTotalDtoCabecera.Text) & ")"
vTIva = "CONVERT(Money, " & CDbl(TxtTotalIVA.Text) & ")"
vTAlbaran = "CONVERT(Money, " & CDbl(TxtTotalAlbaran.Text) & ")"
vCosteT = "CONVERT(Money, " & CDbl(txtTotalCoste.Text) & ")"
vRecargo = "CONVERT(Money, " & CDbl(txtRecargo.Text) & ")"
If lblIDConcep = "" Then
vIdConcepto = "Null"
Else
vIdConcepto = lblIDConcep
End If
Dim vNum As Integer
vNum = 0

consulta = "INSERT INTO Factura (CodigoFactura, CodigoCliente, CodigoPersonaContacto, CodigoDireccion, "
consulta = consulta & "FechaAlta, CodigoEstado, CodigoSerieFactura, Semaforo, NumCopias, ObservacionFA, "
consulta = consulta & "DctoProntoPago, DctoOtros1, DctoOtros2, DctoOtros3, ImporteDctoDirecto, "
consulta = consulta & "TotalNeto, TotalDctoProntoPago,TotalDctoOtros, TotalImpuestos, Total, "
consulta = consulta & "CosteTotal, CodigoUsuario, NumFactura, CodigoMedioPagoCobro, CodigoPeriodicidad, "
consulta = consulta & "CodigoAgente1, CodigoAgente2, NumExpediente, ValorRecargo, EliminadoContab, "
consulta = consulta & "CodigoAsiento, Vencimiento, ObserConta, ClaveConta, CodigoAgente2OK, "
consulta = consulta & "FacturaRectificada, FechaFacRec, Causa, IDRiesgosEMP) VALUES "

consulta = consulta & "(" & CodigoFacCompras & ", " & lblIDCliente.Caption & ", Null, "
consulta = consulta & "" & lblDirFac.Caption & ", '" & txtFecha.Text & "', 31, "
consulta = consulta & "" & lblCDSerieFactura.Caption & ", 'V', "
consulta = consulta & "" & txtCopias.Text & ", '" & Trim(txtObserFac.Text) & "', " & txtDtoPP.Text & ", "
consulta = consulta & "" & txtDto.Text & ", 0,0, " & vVacio & ", " & vTotalbase & ", " & vTDtoPP & ", "
consulta = consulta & "" & vTDtoCabece & ", " & vTIva & ", " & vTAlbaran & ", " & vCosteT & ", "
consulta = consulta & "" & frmMain.SBLanzador.Panels(1).Text & ",'" & CodigoDesSerFac & CodigoFacCompras & "', "
consulta = consulta & "" & lblIDMedioPago.Caption & ", " & lblIDPeriodicidad.Caption & ", "
consulta = consulta & "" & lblAgente.Caption & ",1, '" & txtExpediente.Text & "', " & vRecargo & ", 'N', "
consulta = consulta & "Null, '" & VencimientoGuay & "', '', 'F', " & lblAgente2.Caption & ", "
consulta = consulta & "'" & lblFacCompe & "', '" & lblFechaFacRecti & "', " & vIdConcepto & ", "
consulta = consulta & "" & lblIDEmpresaRiesgo & ");"

AbrirADO 'Abrimos la base de datos (ver ModuloGeneral)
cnn.Execute consulta

He estado echando un vistazo por internet y lo unico que sé, es que es referente a la conversión de números.

Muchas gracias de antemano

[GeoAvila]

seria bueno nos dijieras en que lina se presenta el error...

nos vemos..

[sebaghost]

podrias ser mas especifica y mas ordenadas para listar el codigo no se entiende mucho y qu deseas hacer ...

[Ana_pm]

Se encuentra en esta linea:

consulta = consulta & "" & txtDto.Text & ", 0,0, " & vVacio & ", " & vTotalbase & ", " & vTDtoPP & ",

Me da error en: txtDto.Text & ", 0,0, " & vVacio &

Espero que esto sirva

Gracias

[Improvisado]

Hola, para guardar importes coloco en importe entre ' (comilla simple) así:
consulta = consulta & " '" & txtDto.Text & "' , 0,0, " & vVacio & ", " & vTotalbase & ", " & vTDtoPP & ", "

por si no se nota la comilla simple esta antes de la comilla doble y después de la comilla doble del txtDto.text
La BD que utilizo es access.
Saludos