>>>Gregory,
>
>>
>>This is saved to clipboard with _cliptext = lcXML.
>
>
>The 'problem' is that the pk and fk are defined as xs:string without maxLength attribute. Hence vfp makes it big enough (=memo) to hold the max length string
>
>Two solutions
>(1) Have the maxLength added to the schema, if possible at all
>
>(2) Massage the Fields before calling ToCursor - and voila
>[ better would be to go through the tables collections, field collections and looking for the field (names) to modify - this is a quick way]
>
>

>	local obj, i
>	
>	obj = createObject('xmladapter')
>	
>	with m.obj
>		.LoadXml('\tmp\ppp.xml', TRUE, TRUE)
>		
>		with .Tables(1)
>			for i = 1 to 2
>				with .Fields(m.i)
>					
>					.DataType = 'C'
>					.MaxLength = 36
>					
>					&& also possible
>					&& .DataType = 'V'
>					&& .MaxLength = 50
>				endwith
>			endfor
>		endwith
>		
>		for i = 1 to .Tables.Count
>			=.Tables[m.i].ToCursor()
>		endfor
>		
>	
>	endwith
>

The names of the fields are empty and XmlName shows space between each letter. I guess I only can test by type, not by name.