Cascading Combo from Main to Sub

[libraccess]

I have the first cbo on the Main form and the second cbo on the Subform



I have this working OK except when I move away from a record when I return the control is blank.
If I go to the Main Form cbo and reselect the Original the subform selections repopulate correctly soon as I after update.
So I think ive fixed this, but is this the right way, good way or any other way? Deliv is the subforms Control Name

Private Sub Form_Current()
Me.Deliv.Requery
End Sub

it works but as I said is this good?

[June7]

I have never seen main/subform dependent comboboxes. If the Requery is producing the desired result then good.