If you want to set a value for the combo box in an event procedure, you could use something like this:
Dim strComboValue As String
strComboValue = "Your choice here"
[forms]![yourform]![comboboxname] = strComboValue
If the combo box contains numeric or date data, be sure to dimension your variable accordingly.
You could also set a default value for your combo box using properties.