Lotus Approach - Error de read o writted

Saludos a tod@s.

Se me estan dando dos errores al correr un SQL:

1- (nombre de ventana) approach.exe - Error de Aplicacion
La instruccion en "0x003dca69" hace referencia a la memoria en 0x02969000". La memoria no se puede "read"

(dos botones) aceptar, cancelar

2- (nombre de ventana) Approach - [lasttaller.apr:entEqTaller]: approach.exe - Error de Aplicacion
La instruccion en "0x040c2030" hace referencia a la memoria en 0x001bb000". La memoria no se puede "written"

(dos botones) aceptar, cancelar

Estos errores se presentan cuando intento ejecutar la rutina que abajo he colocado. Debo aclarar que de cinco registros que intento ingresar dos fallan. lo cargo en una pc con xp y soy el administrador.

Sub CreaNewGestion
Dim Path As String
Dim File As String
'------------------
CD = Chr(34) '--------- Comillas dobles para formar sentencias SQL
Path = CurrentDocument.Path '------ Via al documento
' Path ="c: egisared"
File = "LLTC01.DBF" '------ Nombre de archivo
mAnnio_Actual = Year(Today())
'----------------------- Inicializar variables
Set CON = New Connection
Set QRY = New Query
Set RST = New ResultSet
CON.ConnectTo("dBASE IV")
Set QRY.Connection = CON
QRY.TableName = Path + File
Set RST.Query = QRY

Table = Path + File

'------------ Ahora formamos la sentencia SQL. Sólo funciona la sentencia SELECT
'------------ no proebes con ninguna otra sentencia SQL, sólo va la SELECT.
QRY.SQL = "SELECT * FROM " & CD & Path & File & CD & " WHERE PERIODO ='" & mAnnio_Actual & "' ORDER BY cod_lla"
Set RST.Query = QRY
RST.Execute
NumRecords = RST.NumRows
ActualReg = RST.CurrentRow
RST.LastRow
ActualReg = RST.CurrentRow

' Messagebox "El último número es:" & RST.GetValue("cod_lla")
NewGestion = RST.GetValue("cod_lla")
NewGestion=Right(Str( Val(NewGestion) + 100001),5)
'Messagebox "El último número es:" & NewGestion
CurrentView.Body.COD_LLA.ReadOnly = False
'CurrentView.Body.COD_LLA.Text=Right(Str( Val(NewGestion) + 100001),5)
CurrentView.Body.COD_LLA.Text = NewGestion
Messagebox "El Número de Gestion es:" & CurrentView.Body.COD_LLA.Text
CurrentView.Body.COD_LLA.ReadOnly = True
CurrentWindow.Refresh
'=================== fin de la secuencia
End Sub