DEFINE CLASS LanduseInq AS Session OLEPUBLIC PROCEDURE SingleAddress AS String PARAMETERS lnUniqid LOCAL loXMLAdapter AS XMLAdapter LOCAL lcXMLAddress AS String loXMLAdapter = CREATEOBJECT("XMLAdapter") OPEN DATABASE "c:\commcity\data\landuse" SET PATH TO c:\city\data\landuse nUniqid=IIF(TYPE('lnUniqid')<>'N',123,lnUniqid) USE landuse_view loXMLAdapter.AddTableSchema("landuse_view") loXMLAdapter.UTF8Encoded = .T. loXMLAdapter.ToXML("lcXMLAddress") CLOSE DATABASES ALL RETURN lcXMLAddress ENDPROC ENDDEFINEthanks