I would like some help please.

My problem is I import data using 'DisplayDataMap' and that works great.

The problem comes when I have to change the Pushpinsymbol. The code I am using is listed below

Do While Not objRS.EOF
If objRS.Fields(10) <> "n" Then
location = objRS.Fields(1)

Set objLoc = objmap.FindResults(location).Item(1)

PushpinType = objRS.Fields(10)

Name = objRS.Fields(3)
If IsNumeric(PushpinType) <> 0 Then 'Check if the PushpinType is standard ie numberic value
Set objSymbol = objmap.Symbols.Item(CInt(PushpinType)) ' Convert String value to Integar. Display the standard symbol equal PushpinType value
Else
Set objSymbol = objmap.Symbols.Add(PushpinType) 'Display Customised Pushpin symbol
End If

Set objPin = objmap.FindPushpin(Name)

At the line Set objPin = objmap.FindPushpin(Name) i get an error message

"The requested property is unavailable"

Could you please advise how else I can improve this?


Many thanks in advance