public o o = createobject('oTest') o.makeRSnumeric() ovcomutil.RSToCursor(o.oRS) && No cursor created o.makeRSchar() ovcomutil.RSToCursor(o.oRS) && Cursor created brow norm DEFINE CLASS oTest AS custom &&OLEPUBLIC oRS = NULL FUNCTION makeRSchar create cursor cTest (FieldOne c(10)) insert into cTest (fieldone) values ('1') insert into cTest (fieldone) values ('2') insert into cTest (fieldone) values ('3') this.oRS = CreateObject("ADODB.Recordset") oComUtilClass = create("vfpcom.comutil") oComUtilClass.CursorToRS(this.oRS) use in cTest RETURN ENDFUNC FUNCTION makeRSnumeric create cursor cTest (FieldOne n(10,0)) insert into cTest (fieldone) values (1) insert into cTest (fieldone) values (2) insert into cTest (fieldone) values (3) this.oRS = CreateObject("ADODB.Recordset") oComUtilClass = create("vfpcom.comutil") oComUtilClass.CursorToRS(this.oRS) use in cTest RETURN ENDFUNC ENDDEFINE