MapForums

            object o = 1;
            MapPoint.DataSet ds = mp.ActiveMap.DataSets.get_Item(ref o);
            Recordset rs = ds.QueryAllRecords();
            rs.MoveFirst();
            while (!rs.EOF) {
                Location loc = rs.Pushpin.Location;
                rs.MoveNext();
            }

Private Sub Commande0_Click()

Dim objApp As MapPoint.Application
Dim objMap As MapPoint.Map
Dim objLoc As MapPoint.Location
Dim objRecordSet As MapPoint.Recordset
Dim objDataset As MapPoint.DataSet

Set objApp = GetObject(, "Mappoint.Application.NA")
Set objMap = objApp.ActiveMap
Set objDataset = objMap.DataSets.Item(1)
Set objRecordSet = objDataset.QueryAllRecords

objApp.Visible = True
objApp.UserControl = True

objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    Set objLoc = objRecordSet.Pushpin.Location
    objRecordSet.MoveNext
    MsgBox objLoc.Name
Loop

End Sub