>>I liked VFP8 builder more. It created all properties with TEXT ENDTEXT in Init of the CA. More visible and easy to manipulate.
>By the way here there is CursorAdapter Builder for VFP9 Download #26265 created by Mark McCasland. Never tryed it but I am sure it is good utility.
>
>Well I just migrated from 7 to 9 and decided to use the CA. I kindof see the benifit.. as I play with it more, I'll probably realize it has more benifits than I see now. But Mark's CA utility is excellent! It helped me fix my problem. Thanks again.

Hi Daniel,

Are you using MereMortals? Sorry if I'm confusing you with someone else.

If yes, make sure to uncheck using CursorSchema checkbox in the Edit mode for the view in Business Object builder. I also made a slight change in Mark's McCasland base class CursorFill method:

lparameters lUseCursorSchema, lNoData, nOptions, uSource
if not pemstatus(this, 'lADO_Done', 5)
	this.addproperty('lADO_Done')
endif
if this.datasourcetype = [ADO] and not this.lADO_Done
	return
endif
local llSchema, llNoData, lnOptions, luSource
llSchema  = lUseCursorSchema
llNoData  = lNoData
lnOptions = nOptions
luSource  = uSource
if vartype(this.nFillOptions) <> "N"
	this.nFillOptions = -1
endif
if pcount() < 1 or vartype(llSchema) <> "L"
	llSchema = this.usecursorschema
endif
if pcount() < 2 or vartype(llNoData) <> "L"
	llNoData = this.nodata
endif
if pcount() < 3 or vartype(lnOptions) <> "N"
	lnOptions = iif(this.datasourcetype = [ADO], this.nFillOptions, 0)
endif
local llRetVal
if this.datasourcetype = [ADO]
	llRetVal = dodefault(llSchema, llNoData, lnOptions, this.oADO_Command)
else
	if pcount() = 4
		llRetVal = dodefault(llSchema, llNoData, lnOptions, luSource)
	else
		llRetVal = dodefault(llSchema, llNoData, lnOptions)
	endif
endif
nodefault
if not m.llRetVal && There was an error trying to execute CursorFill
	local laError[1]
	aerror(laError)
	if laError[1,1] <> 1839
		=ErrorMsg("Error trying to execute CursorFill method: " + laError[1,2] + ;
			chr(13) + chr(10) + "SelectCMD is " + this.selectcmd)
	ELSE
		
		if vartype(m.plStop) = "L"			
				this.lRepeatRequery = not m.plStop
		endif
	endif
endif

return m.llRetVal