For X = 1 To MappointControl1.ActiveMap.DataSets.Count MappointControl1.ActiveMap.DataSets(X).UpdateLink Next