[Resolvido]Grupo de opções no VBA

Boas estou com uma duvida.
como poder criar um grupo de opções no vba (provavelmente tem outro nome)

Exemplo:

opção 1 = "azul"
opção 2 = "azul"
opção 3 = "azul"
opção 4 = "azul"
opção 5 = "azul"

para poder usar com:

For i = 1 To 5
Me("txt" & CStr(i)).Value = opção & CStr(i)
Me("txt" & CStr(i)).RowSource = "SELECT * FROM tb_dados where "ID= '"& Me.Txt0 &"';"
Me("txt" & CStr(i)) = Dlookup("Nome", "tb_dados", "ID"= " & Me.txt0 & ")
next i

Melhor usar vetor (array). Por exemplo:

Código:

Dim opção(1 To 5)

opção(1) = "azul"
opção(2) = "azul"
opção(3) = "azul"
opção(4) = "azul"
opção(5) = "azul"

For i = 1 To 5
    Me("txt" & CStr(i)).Value = opção(i)
    Me("txt" & CStr(i)).RowSource = "SELECT * FROM tb_dados where "ID= '"& Me.Txt0 &"';"
    Me("txt" & CStr(i)) = Dlookup("Nome", "tb_dados", "ID"= " & Me.txt0 & ")
Next i

Ok muito obrigado.
ainda não testei mas acho que era mesmo o que precisava.
Ja tinha visto esse código algures mas
não me lembrava mais como era feito.
Depois retorno.


Tentei assim mas não apresenta nada nas caixas.

Dim opção(1 To 7)

opção(2) = "tb_codfornecedor"
opção(3) = "tb_familia"
opção(4) = "tb_produto"
opção(5) = "tb_acabamento"
opção(6) = "tb_unidade"
opção(7) = "tb_codigosGS1"

For i = 2 To 7
Me("txt" & CStr(i)).RowSource = "SELECT * FROM '" & opção(i) & "' ORDER BY nome ASC;"
Next i

Diz erro na expressão!

Pedro, conseguiu solução para esta questão? Como ficou?

Aguardamos...