Aren't your 2 strings (sCode and sSelected) the wrong way round when you assign them?

Code:
sSelected = frmRegisterCompetitor.cboCompetitorNumber.Text
sCode = frmRegisterCompetitor.cboEventCode.Text
then

Code:
.Fields("EventCode").Value = sSelected
.Fields("CompetitorNumber").Value = Val(sCode)

J.