Here's how I do it.

Public Sub MinimumDetails(ByVal Requester As frmMap)

Dim oMap As MapPoint.Map = Requester.MappointControl1.ActiveMap
Dim oDataSets As MapPoint.DataSets
Dim oDataset As MapPoint.DataSet
Dim oRS As MapPoint.Recordset

oDataSets = oMap.DataSets

For Each oDataset In oDataSets
oRS = oDataset.QueryAllRecords
oRS.MoveFirst()
Try
While Not oRS.EOF
oRS.Pushpin.BalloonState = MapPoint.GeoBalloonState.geoDisplayName
oRS.MoveNext()
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
End Sub
End If

__________________
Best Regards.
Bug
Microsoft Certified Solutions Developer