Under cmdOK in the form, you could change:
If getparm("ShowOrderOptions") Then
For i = 1 To 10
Set c = Me("cboOption" & i)
Set C2 = Me("txtOption" & i)
If c.visible Then
gOption(i) = c
Else
gOption(i) = C2
End If
Next
gOption(0) = Me.txtFreeFormOption
End If
to:
If getparm("ShowOrderOptions") Then
For i = 1 To 10
Set c = Me("cboOption" & i)
Set C2 = Me("txtOption" & i)
If c.visible Then
gOption(i) = c
Else
gOption(i) = UCase(C2)
End If
Next
gOption(0) = Me.txtFreeFormOption
End If