CLOSE DATABASES all CLEAR TEXT TO cXML NOSHOW <?xml version="1.0" encoding="utf-8"?> <!DOCTYPE stuff [ <!ELEMENT stuff (note+)> <!ELEMENT note (to, from, heading, body, saveonexit)> <!ELEMENT to (#PCDATA)> <!ELEMENT from (#PCDATA)> <!ELEMENT heading (#PCDATA)> <!ELEMENT body (#PCDATA)> <!ELEMENT saveonexit (#PCDATA)> ]> <stuff> <note> <to>Tove</to> <from>Jani</from> <heading>Reminder</heading> <body>Don't forget me this weekend!</body> <saveonexit>True</saveonexit> </note> </stuff> ENDTEXT LOCAL loXML as XMLAdapter loXML = CREATEOBJECT("XMLAdapter") loXML.LoadXML(cXML,.f.,.t.) ? loXML.Tables.Count CREATE CURSOR note (to c(10),from c(10),heading c(15),body c(50),saveonexit L) loXML.AddTableSchema("note",.T.,STRCONV("note",5)) loXML.XMLName=STRCONV("stuff",5) USE IN note loXML.Tables(1).ToCursor() SELECT note list returnThanks,