Problema con AddNew pero no en Edit contra Acces

[Emilio Gil]

Hola a todos:
Tengo que atacar una base de datos acces y utilizo
ADODataSource y SQLTable con los siguientes parámetros
Cadena de Conexión Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:xailer2nhdataNHTF720.mdb;
En el SQLTable:
- nCursorLocation := adUseClient
- nCursorType := AdOpenStatic
- nLockType := adLockOptimistic ó adLockBatchOptimistic
(he probado de las dos maneras)
Código:
WITH OBJECT ::oDiarioCaja
:lOpen := .T.
:GoTop()
:Edit()
// asigno valor a todos los campos
:Update()
:lOpen := .F.
END WITH
En edición ningún problema
WITH OBJECT ::oDiarioCaja
:lOpen := .T.
:AddNew()
// asigno valor a todos los campos
:Update()
:lOpen := .F.
END WITH
En adición no graba nada y da error sobre la lí­nea lOpen
:= .F. Mensaje de error el siguiente:
ADODB:RecordSet:Close('`[Diario de Caja]') [#0]
le das a aceptar y continua ejecutandose la aplicación.
Cuando cierras la aplicación de nuevo da el error
ADODB:RecordSet:Close('`[Diario de Caja]') [#0]
En procedimiento TFormPrincipal:FREE lí­nea 332.
Gracias.