Code:
        For i = 0 To 0
            txtDisplay(i).Text = "" & RS.Fields(recDisplay(i)).Value
        Next i
works

Thanks.