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) ENDFUNCRgds,