Hi, Naomi,

Thanks very much for your code! Ultimately, I think it is the RowSource = "" (Unbind first) which I needed to do. I have enclosed my code below.

The object being named 'lccontrol' was an error, and should have been named locontrol.

The code:

** Naomi Nasonovski 30.10.06
locontrol=thisform.cmbfieldval
with loControl
	.RowSource = "" && Important, unbind first
	DO case
	case lcfield='cOpr'
	       .RowSourceType = 6
	       .RowSource = "Opr.op_Code"
	case lcfield='cgang'
	       .RowSourceType = 6
	       .RowSource = "Gang.gcode"
	ENDCASE
	.requery()
endwith

With best regards,

Steve