Bound Combo Box Query

If I want to be able to save new data to a field from a combo box, what code do I need.

I found the code below which said it was for an unbound combo box. Not sure what to change. I've set it as my event procedure for "On Not In List" and the query runs ok but nothing else seems to happen. Thats while I have nothing in the control source.

If I amend control source to be the field I want, (which is the same as what I already have in the row source, then it won't let me select anything from the combo box drop down at all.

Not sure what to do? Any ideas please??

Private Sub Combolook_NotInList(NewData As String, _
Response As Integer)
Dim ctl As Control

' Return Control object that points to combo box.
Set ctl = Me!Combolook
' Prompt user to verify they wish to add new value.
If MsgBox("Value is not in list. Add it?", _
vbOKCancel) = vbOK Then
' Set Response argument to indicate that data
' is being added.
Response = acDataErrAdded
' Add string in NewData argument to row source.
ctl.RowSource = ctl.RowSource & ";" & NewData
Else
' If user chooses Cancel, suppress error message
' and undo changes.
Response = acDataErrContinue
ctl.Undo
End If
End Sub