local llReturn DO CASE CASE NOT PEMSTATUS(This, '__VFPSetup', 5) THIS.AddProperty('__VFPSetup', 0) CASE THIS.__VFPSetup = 2 THIS.__VFPSetup = 0 RETURN ENDCASE llReturn = DODEFAULT() *** Select connection code: DO NOT REMOVE SET MULTILOCKS ON ***<SelectCmd> TEXT TO This.SelectCmd NOSHOW SELECT * FROM CATEGORIES WHERE CategoryID = ?pCategoryID ENDTEXT ***</SelectCmd> ***<DeleteCmd> TEXT TO This.DeleteCmd NOSHOW EXEC PA_DEL_CATEGORIES ?crsCategories.CategoryID ENDTEXT ***</DeleteCmd> ***<InsertCmd> TEXT TO This.InsertCmd NOSHOW EXEC PA_INS_CATEGORIES ?crsCategories.CATEGORYNAME, ?crsCategories.DESCRIPTION, ?crsCategories.PICTURE ENDTEXT ***</InsertCmd> ***<UpdateCmd> TEXT TO This.UpdateCmd NOSHOW EXEC PA_UPD_CATEGORIES ?crsCategories.CATEGORYID, ?crsCategories.CATEGORYNAME, ?crsCategories.DESCRIPTION, ?crsCategories.PICTURE ENDTEXT ***</UpdateCmd> *** End of Setup code: DO NOT REMOVE IF THIS.__VFPSetup = 1 THIS.__VFPSetup = 2 ENDIF Return llReturnProblem: