Why doesn't this work?

Dim CurrentRecord As Integer
CurrentRecord = (Data1.Recordset.AbsolutePosition + 1)
Select Case CurrentRecord
Case 2
lblAnswerA.Caption = "multi-1"
lblAnswerB.Caption = "multi-3"
end select