Dim ThisPosition As LatLng 'Before the loop
Do While Locations.NextRow
ThisLat = Locations.GetDouble("Lat")
ThisLong = Locations.GetDouble("Long")
ThisPosition.Initialize(ThisLat,ThisLong) 'The values assigned are correct
PointList.Add(ThisPosition) 'When checked after the loop is not correct
gMap.AddMarker3(ThisLat,ThisLong, Locations.GetString("Name"),Bm)
Loop