Hi John,

The code I use with the DataSet is:

Set objRecordset = pubMap.DataSets(VehicleInfo(Index).VehicleNm).Quer yAllRecords

and it the problem occurs on the "Set".

I've change my code to use the the following
Set objPushPin = pubMap.FindPushpin(VehicleInfo(Index).VehicleNm)

and same thing happen on the 'Set'. The code works fine until I click on the 'Find' of the 'Navigation Toolbar'. I've also reinstall MapPoint and the same thing. I test it on 2 computers without a programming environment and the same error.

Sylvain