figured it out I set the dataset not the pushpin symbol

For x = 0 To 9
Set objDataSet = MyMap.DataSets(sSetTrk(x))
objDataSet.Symbol = 20
Set objRSet = objDataSet.QueryAllRecords
objRSet.MoveFirst
Do While Not objRSet.EOF
objRSet.Pushpin.Symbol = 20
objRSet.MoveNext
Loop
Next

look OK