CLEAR LOCAL loUSZip AS "XML Web Service" * LOCAL loUSZip AS "MSSOAP.SoapClient30" * Do not remove or alter following line. It is used to support IntelliSense for your XML Web service. *__VFPWSDef__: loUSZip = http://www.webservicex.net/uszip.asmx?WSDL , USZip , USZipSoap LOCAL loException, lcErrorMsg, loWSHandler TRY loWSHandler = NEWOBJECT("WSHandler", IIF(VERSION(2)=0, "", HOME()+"FFC\")+"_ws3client.vcx") loUSZip = loWSHandler.SetupClient("http://www.webservicex.net/uszip.asmx?WSDL", "USZip", "USZipSoap") * Call your XML Web service here. ex: leResult = loUSZip.SomeMethod() leResult = loUSZip.GetInfoByZIP("79936") && AS XMLDOMNodeList ?leResult.ITEM(0).XML ?leResult.ITEM(0).TEXT ?leResult.ITEM(0).parsed *XMLTOCURSOR(leResult, "c:\devfox9\test.dbf") CATCH TO loException lcErrorMsg="Error: "+TRANSFORM(loException.ERRORNO)+" - "+loException.MESSAGE DO CASE CASE VARTYPE(loUSZip)#"O" * Handle SOAP error connecting to web service CASE !EMPTY(loUSZip.FaultCode) * Handle SOAP error calling method lcErrorMsg=lcErrorMsg+CHR(13)+loUSZip.DETAIL OTHERWISE * Handle other error ENDCASE * Use for debugging purposes MESSAGEBOX(lcErrorMsg) FINALLY ENDTRYas always, i appreaciate you help.