Francois,
Instead of lnRecords checking, just after execute you could control :

if oRecordset.Eof
* No recs returned
else
...
endif

Cetin
>Cetin,
>
>Sorry to disturb you again with this Thread but i have some problem when the number of records is zéro. XMLTOCURSOR() return 2 blank records when the result is nothing from my ADO-SQL.
>
>Can u help on this?
>
>

>*The little program
>CLEAR
>oConnection	= NEWOBJECT("ADODB.Connection")
>oStream		= NEWOBJECT("ADODB.Stream")
>oConnection.Provider = "SQLOLEDB.1"
>oConnection.ConnectionString = ;
>	"Persist Security Info=False;User ID=sa;"+;
>	"Initial Catalog=Shipping;Data Source=FDURO_W2K"
>oConnection.open
>
>lcSelect = ;
>	"SELECT * FROM INCIDENT" <B>&& This table is empty!!!</B>
>
>lnRecords = 0
>oRecordSet = oConnection.Execute(lcSelect, lnRecords)
>oRecordSet.Save(oStream, 1)
>XMLTOCURSOR(oStream.ReadText, "MyCursorName", 1028)
>lnRecords = RECCOUNT('MyCursorName')
>
>RELEASE oRecordSet
>RELEASE oConnection
>RELEASE oStream
>
>Dspl = " _Total Reccords:"+STR(lnRecords,9,0)
>? Dspl <B>&& Dspl Give me 2 cause by blank records </B>
>

>
>Thanks
>
>François