LPARAMETERS luseCursorSchema, lNoData, nOptions, Source IF VARTYPE(m.getOptionID) <> "N" PRIVATE getOptionID getOptionID = 0 ENDIF IF VARTYPE(m.getMakeID) <> "N" PRIVATE getMakeID getMakeID = 0 ENDIF IF VARTYPE(m.getModelIDs) <> "C" PRIVATE getModelIDs getModelIDs = "" ENDIF LOCAL llRetVal llRetVal = dodefault(luseCursorSchema, lNoData, nOptions, Source) NODEFAULT if not m.llRetVal && There was an error trying to execute CursorFill local laError[1] aerror(laError) if laError[1,1] <> 1839 =Messagebox("Error trying to execute CursorFill method: " + laError[1,2] + ; chr(13) + chr(10) + "SelectCMD is " + this.selectcmd) endif endif return m.llRetValSeems to get me one step father in the direction of making this form to work.