Private Sub Combobox1_ID_AfterUpdate()
Me.test.DefaultValue = "'" & Me.Combobox1_ID.Column(1) & "'"
Me.test1.DefaultValue = Me.Combobox1_ID.Column(2)
Me.Subform_Underformulär.SourceObject = Me.Subform_Underformulär.SourceObject
End Sub