I am creating a VB application that searches for matches of Office locations to a user suplied address -objLOC(1) . I am looping through an access db and Pushpining the office Locations. There are roughly 100 locations and maybe 30 meet the 25 mile critera, but it takes around 30 seconds to do this. Is this normal?
Also if the address is bad, like say a PO Box instead of a street address, it bombs out with a " MEthod Find Address Results of Object_Map Failed " error, shouldn't it just find it with a bad result quality?
Here is the code
Do Until rsA.EOF
Set objFIND = Me.MappointControl1.ActiveMap.FindAddressResults
(rsA! aglocstradr, rsA!agloccity, , rsA!agloczip)
If objFIND.ResultsQuality <> geoFirstResultGood Then GoTo Nextone
Set objLoc(x) = objFIND.Item(1)
If objLoc(1).DistanceTo(objLoc(x)) > 25 Then GoTo Nextone
Set objPIN(x) = MappointControl1.ActiveMap.AddPushpin(objLoc(x), rsA!agname)
objPIN(x).Symbol = 25
x = x + 1