I found it guys !
I added an extra field in my table: Constant with default value: 1
and then in my form i did this :
Private Sub Form_Load()
Dim con As Integer, varX As Variant
con = 1
varX = DLookup("[Baumuster]", "XML_Vehicle", "[Constant] = " & con)
Baumuster.Value = varX...