lcXmlFile = "..." && file with your XML oXA = CREATEOBJECT("XmlAdapter") oXA.LoadXML(lcXmlFile, .T.) ? oXA.Tables.Count && 24 FOR i=1 TO oXA.Tables.Count oXT = oXA.Tables.Item[i] IF oXT.Fields.Count > 0 oXT.Tocursor() ELSE ? i, oXT.Alias ENDIF ENDFOR>ok.. looks like we are not going to get a simpler xml..