Error S1010 on MoveNext

[JA12]

I'm having an intermittent problem with one SQL query.

Dim GetDN As DAO.Recordset
sSQLStmt = "SELECT ..."
Set GetDN = LeaseDB.OpenRecordset(sSQLStmt)
If GetDN.BOF = False And GetDN.EOF = False Then
GetDN.MoveFirst
Do While Not GetDN.EOF
<code...>
GetDN.MoveNext '<-------- Error s1010 Function Sequence Error
Loop

RecordCount = 1569

The error ALWAYS happens at record 89

I've put in loads of messages and stages, and the record returned before the error is always the same.

I've attached the image of the full DBEngine error structure.

I'd be happier if the error always happened, but it doesn't.

Can anyone help?

ODBC: MERANT
Database: PROGRESS
Database-OS: Unix
App-OS: Windows XP

 

[jdpjamesp]

Is it always the 69th record no matter what the query, or is it the same record that throws the errors? If so, what's different about that particular record?

 

[JA12]

It was always failing on the same record.

There doesn't seem to be anything strange about that record, but then I'm not familar with PROGRESS databases and MERANT...

We have now disabled that record, and are waiting for the error to happen again. This may take weeks!

 

[JA12]

The error has happened again, on another record. Same place, different record, a few dozen records further on in the recordset.
Unfortunately this is a live record, so we can't disable it...