Error Tablas DBF solo lectuta en Visual Basic 6

Saludos tengo una aplicación que abro una tabla dbf dentro de visual basic pero al acrualizar los campos una vez agregado los datos necesarios me sale el siguiente error.
No se puede actualizar. La base de datos o el objeto es de solo lectura
Ya cambie permiso escanie mi compu restrusture el código que utilizo para abrir y no me deja actualizar los datos y guardarlos en la tabla este es el código del form:
Private Sub cmdadd_Click()
    lblnominanum.Visible = True
    lblfechin.Visible = True
    lblfechfin.Visible = True
    txtnumno.Visible = True
    txtfechain.Visible = True
    txtfechafin.Visible = True
    cmdcalit.Visible = True
    cmdsave.Visible = True
    cmdsave.Enabled = True
    cmdadd.Enabled = False
    txtnumno = ""
    txtfechain = ""
    txtfechafin = ""
    cldit.AddNew
    txtnumno.SetFocus
End Sub
Private Sub cmdcalit_Click()
frmvercalendarit.Show
End Sub
Private Sub cmdreturn_Click()
Unload Me
frmmenuprin.Show
End Sub
Private Sub cmdsave_Click()
    cldit!Nomina = txtnumno
    cldit!Fecha_Ini = txtfechain
    cldit!Fecha_Fin = txtfechafin
    cldit.Update
    cmdsave.Enabled = False
    cmdadd.Enabled = True
End Sub
Private Sub Form_Load()
Set Db = OpenDatabase("", True, False, "dBASE IV;database=c:\bases")
Set cldit = Db.OpenRecordset("SELECT * FROM calenit ORDER BY nomina")
lblnominanum.Visible = False
lblfechin.Visible = False
lblfechfin.Visible = False
txtnumno.Visible = False
txtfechain.Visible = False
txtfechafin.Visible = False
cmdcalit.Visible = False
cmdsave.Visible = False
End Sub
Private Sub txtfechafin_lostfocus()
txtfechafin = fFecha(txtfechafin)
End Sub
Private Sub txtfechain_lostfocus()
txtfechain = fFecha(txtfechain)
End Sub
Utilizo un modulo para las fechas y también tres variables publicas par autilizarlas en toda la aplacacion donde este el error espero respuesta