David,

Thanks for your field renaming suggestion, it works a treat. For the archives here is the routine I used for this:

FUNCTION SetNameTitleCase(loAdapter, loTable, lcField)
	lcUniField=STRCONV(lcField,5)
	lcUniLowField=LOWER(lcUniField)
	loField=loTable.Fields(lcUniLowField)
	loTable.Fields.remove(lcUniLowField)
	loField.XMLName=lcUniField
	loTable.Fields.Add(loField,loField.XMLName)
ENDFUNC

Rgds,
Nick