Private Sub Combobox2_AfterUpdate()
Forms![Combobox1]![Subform Underformulär].Form![Combobox2_ID].DefaultValue = Me.Combobox2
End Sub