Function RsToCursor( oRs, cAlias ) LOCAL loCursor, lcCursor, lcAlias Try lcCursor = Sys(2015) lcAlias=IIF( Type('cAlias') = 'C', cAlias, Sys(2015) ) loCursor = CREATEOBJECT("CursorAdapter") WITH loCursor .DataSourceType="ADO" .Alias = lcCursor .CURSORFILL(.F., .F., 0, oRs) ENDWITH If Used(lcCursor) Select * From (lcCursor) Into Cursor (lcAlias) READWRITE EndIf Catch Finally loCursor = null loRs=null EndTry Return Iif( Used(lcAlias), 1, -1 ) EndFunc>VFP 7.0