Dim sNomeCampo

sNomeCampo = "campo" & trim$(str$(indice))

... = rs(sNomeCampo)