error 3027 can't update database or object is read-only

[gasafonso]

Código vb:

1.
      Dim criterio As String
   2.
      Dim criterio1 As String
   3.
      Dim llave As String
   4.
      Dim llave1 As String
   5.
       
   6.
      f_CopiaFacturador.Text2.Visible = False
   7.
      f_CopiaFacturador.txtFacTipo.Visible = True
   8.
       
   9.
       
  10.
      Call Letra
  11.
      criterio = " nrocomprobante ='" + txtNroPresupuesto + "' and tipocomprobante='" & Label7.Caption & "'"
  12.
      dsDetalleCliente.Recordset.FindFirst (criterio) '("nrocomprobante='" & txtNroPresupuesto.text & "'and tipocomprobante='" & Label7.Caption & "'")
  13.
       
  14.
       
  15.
      dsDetalleCliente.Recordset.Edit
  16.
      dsDetalleCliente.Recordset!tipoComprobante = "FC"
  17.
      dsDetalleCliente.Recordset!Nrocomprobante = txtNroPresupuesto1.text
  18.
      dsDetalleCliente.Recordset!condicion = "9"
  19.
      dsDetalleCliente.Recordset.Update
  20.
       
  21.
      criterio1 = "numfactura ='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'"
  22.
      dsDetalleFactura.Recordset.FindFirst (criterio1) '("numfactura='" & txtNroPresupuesto.text & "' and tipocomprobante='" & Label7.Caption & "'")
  23.
       
  24.
      dsDetalleFactura.Recordset.Edit
  25.
      dsDetalleFactura.Recordset!tipoComprobante = "FC"
  26.
      dsDetalleFactura.Recordset!numfactura = txtNroPresupuesto1.text
  27.
      dsDetalleFactura.Recordset.Update
  28.
      -----------------------------------------------------------------------------------------------------
  29.
      Function Letra()
  30.
      If cboTipoIva = "Responsable Inscripto" Or cboTipoIva = "Responsable No Inscripto" Then 'XXXXXXXXXXXX
  31.
      If OpVta.Value = True Then
  32.
      txtNroPresupuesto1 = Format(dsvariables.Recordset!facturaA + 1, "00000")
  33.
      Else
  34.
      txtNroPresupuesto1 = Format(dsvariables.Recordset!NcreditoA + 1, "00000")
  35.
      End If
  36.
      Else
  37.
      If OpVta.Value = True Then
  38.
      txtFacTipo.text = "B"
  39.
      txtNroPresupuesto1 = Format(dsvariables.Recordset!factura + 1, "00000")
  40.
      Else
  41.
      txtFacTipo.text = "B"
  42.
      txtNroPresupuesto1 = Format(dsvariables.Recordset!ncredito + 1, "00000")
  43.
      End If
  44.
      End If
  45.
      End Function
  46.
      --------------------------------------------------------------------------------------------------------
  47.
      --------------------------------------------------------------------------------------------------------
  48.
      y me da error 3027 diciendo "can't update database or object is read-only"
  49.
       
  50.
      y el error me lo da en:
  51.
       
     dsDetalleFactura.Recordset.Edit
 

si alguien me puede ayudar muyyyyyyyyyyy agradecido

[Valery-Net]

Esta pregunta debe ir en el foro de .NET, si algún moderador la pudiera mover sería mejor.