Private Sub cboOne_AfterUpdate()
If Me.cboOne.Value = 1 Then
Me.Field4 = "First"
Else
If Me.cboOne.Value = 2 Then
Me.Field4 = "Second"
Else
Me.Field4 = "Third"
End If
End If
End Sub
Private Sub cboTwo_AfterUpdate()
Me.cboOne.Value = 3
cboOne_AfterUpdate
End Sub