Need Help

[bradley7]

Hi
Got this bit of code

For zloop = 1 To 5
Me.Controls("cboJDNoOfItems" & zloop).Text = "1"
Me.Controls("cboJDAccType" & zloop).Text = "1000"
Me.Controls("cboJDAccType" & zloop).AddItem "1000"
Me.Controls("txtJDPrice" & zloop).Text = "0"
Next

it suppose to initalizs some control but it is branch up to \
private sub cboJDNoOfItems1

is there a way to stop this?