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

Private Sub Combobox2_AfterUpdate()
    Forms![Combobox1]![Subform Underformulär].Form![Combobox2_ID].DefaultValue = Me.Combobox2
    Me.test_Combobox2.DefaultValue = "'" & Me.Combobox2.Column(1) & "'"
End Sub