Utilização do operador "&" em um objeto de dado

[LTavares]

Estou utilizando o script abaixo para enviar um valor a propriedade de um objeto de dados, porém está com erro de sintaxe.
for i=1 to RS.RecordCount
Application.GetObject(“Dados.ConfigAlarmes.XO_Alarmes”).Nivel&i = Nivel
RS.MoveNext
Next

Quando faço a substituição de:
Application.GetObject(“Dados.ConfigAlarmes.XO_Alarmes”).Nivel&i = Nivel
por
Application.GetObject(“Dados.ConfigAlarmes.XO_Alarmes”).Nivel1 = Nivel
funciona.
Gostaria de saber como fica a sintaxe nesse caso.

[leandrobpedro (Leandro)]

Dim obj

Set obj = Application.GetObject("Dados.ConfigAlarmes.XO_Alarmes")

For i = 1 To RS.RecordCount
	Execute("obj.Nivel" & CStr(i) & " = " & CStr(Nivel))
	RS.MoveNext
Next

[LTavares]

Funcionou! Obrigada!