Ok I am kinda new to access but this is my situation , this is the error that is being created now, the blue line, it starts with a message
Run-Time error '2456':
Microsoft Access can't find the field 'Option7' referred to in your expression
then asked to end or debug, when I debug this is what shows up,
Else
While (Not (rs.EOF))
Me("Option" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]
rs.MoveNext
Wend
End If