Trying to return all pushpins in a shape with 3 datasets on map. As i iterate through the shapes I get the same count of "3" regardless of how many pushpins are in shape . . . what am i doing wrong?

Code:

     tshapes = objmap.Shapes.Count
        Do While tshapes <> 0
            Set objshape = objmap.Shapes.Item(tshapes)
            objshape.Select
            Set objrec = objdata.QueryShape(objshape)
              MsgBox Str(objdata.RecordCount)
            objrec.MoveFirst
            reccount = 1
            Do While Not objrec.EOF
                reccount = reccount + 1
            Loop
            msgbox reccount
            tshapes = tshapes - 1
        Loop

Hi,

The first messagebox will popup (with the record count I assume), but then your code runs forever in the second loop because you dont increment the cursor in the recordset. You have to call MoveNext in the second loop. Or there is no record and the result is already EOF.