Error Insertando en VB 6.0

[chcma]

Buenas Noches Foreros !!!

Verán tengo el siguiente código para insertar datos en mi BD Access:

Private Sub BtnInsertar_Click()
Set R = CN.Execute("select titulo from libros where Titulo = '" & Me.TxtTitulo.Text & "'")
If Not R.EOF Then
MsgBox "El Libro ya existe", vbCritical, "Error Al Insertar"
Exit Sub
Else
On Error GoTo ErrorInsertando
R.AddNew
R!Titulo = TxtTitulo.Text
R!Autor = TxtAutor.Text
R!Editorial = TxtEditorial.Text
R!Disponibles = TxtDisponibles.Text
R.Update
MsgBox "Datos Insertados Correctamente", vbInformation, "Confirmación al Insertar"
Exit Sub
ErrorInsertando:
MsgBox Err.Description, vbCritical, "Error al Insertar"
End If
End Sub

Sin embargo, al ejecutar el R.AddNew me salta este error:

"El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloque seleccinado."

Por favor, ¿Alguien podría indicarme como solucionar este problema?

Desde ya, muchas gracias.