Error 3027 base de datos

[gasafonso]

Hola Gente, tengo un problema haber si me pueden ayudar

tengo el siguiente codigo

Private Sub cmdFacturar_Click()
Dim criterio As String
Dim criterio1 As String
Dim llave As String
Dim llave1 As String

f_CopiaFacturador.Text2.Visible = False
f_CopiaFacturador.txtFacTipo.Visible = True


Call Letra
criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")


dsDetalleCliente.Recordset.Edit
dsDetalleCliente.Recordset!tipoComprobante = "FC"
dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
dsDetalleCliente.Recordset!condicion = "9"
dsDetalleCliente.Recordset.Update

criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")

dsDetalleFactura.Recordset.Edit
dsDetalleFactura.Recordset!tipoComprobante = "FC"
dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
dsDetalleFactura.Recordset.Update
-----------------------------------------------------------------------------------------------------
Function Letra()
If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
If OpVta.Value = True Then
txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
Else
txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
End If
Else
If OpVta.Value = True Then
txtFacTipo.text = "B"
txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
Else
txtFacTipo.text = "B"
txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
End If
End If
End Function
--------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------
y me da error 3027 diciendo "can't update database or object is read-only"

y el error me lo da en:

dsDetalleFactura.Recordset.Edit


Si alguien sabe por que se agradece, por que a mi me supero

GRACIASSS!!!!!!!!!!