I'm also getting an error when attempting to consume the Terra Server web service. However, I'm not getting the same error as mentioned in the original post. Instead, I'm getting a "Type mismatch" error on this line:
strResult = ts.wsm_ConvertLonLatPtToNearestPlace(objLonLatPt)
I tried defining strResult as Variant, but that didn't fix the problem either.
I have Access 2003 installed with Jet 4.0 SP8. The code I'm running is the downloaded Ch7CodeExamples.mdb code, except that I went through the steps described on pages 205-207 to set a reference to the service. Has anyone been able to get this to work?