Hi, Peter:

I checked your code:

Set objRecords = objDataSet.QueryCircle(objLoc, 2000)
objRecords.MoveFirst
Do While Not objRecords.EOF
If TypeOf objRecords Is MapPoint.Pushpin Then
lngCount = lngCount + 1
End If
objRecords.MoveNext
Loop
List1.AddItem lngCount

Everything is fine but one place: the type of OBJRECORDS is MAPPOINT.Recordset, it is not a Pushpin. So you can't check its type to determine if the current record is a pushpin or not. :-)