Dim
fldIncrement.BusinessObject =
I agree with Steve, it looks like you are just missing the Requery call to reload the list. Let me know if this doesn't work for you.