Hi John,

Thank you for taking the time, I've changed the code to use the dataset again and used the following code:

Dim objRecordset As MapPointctl.Recordset
Dim objDataSet As MapPointctl.DataSet

Set objDataSet = pubMap.DataSets(VehicleInfo(Index).VehicleNm)
Set objRecordset = objDataSet.QueryAllRecords

Again the same problem on the first 'set'. I'm sorry for repeating myself but this code works for hours without a problem and the only problem is when the 'Find' of the toolbar is used.

I've added the following to look at the dataset, the proper name shows but again the same error occurs when I used the find. The error stop on the 'For'.

For intCnt = 1 To pubMap.DataSets.Count
Debug.Print pubMap.DataSets(intCnt).Name
Next

Sylvain