Sub Form_Load()
On Error Resume Next
	Dim Layers As Object
	Dim Layer As Object
	Dim Elements As Object
	Dim Element As Object
	Dim Element_DPName As String
	Dim Dummy As Variant
	Set Layers = Form.Document.Layers
	For Each Layer In Layers
		Set Elements = Layer.Elements
		For Each Element In Elements
			Element_DPName = Element.DatapointName
			If Element_DPName <> "" Then
				'MsgBox Element_DPName
				Dummy = Database.Datapoint(Element_DPName).ActualValue
			End If
		Next Element
		Set Elements = Nothing
	Next Layer
	Set Element = Nothing	
	Set Elements = Nothing
	Set Layer = Nothing
	Set Layers = Nothing
End Sub