Utiliza un código de este estilo:
Dim int1 As Integer, strRowSource As String, str1(5) as string
str1(0) = "Elemento 1"
str1(1) = "Elemento 2"
str1(2) = "Elemento 3"
str1(3) = "Elemento 4"
str1(4) = "Elemento 5"
For int1 = LBound(str1) To UBound(str1)
strRowSource = strRowSource & str1(int1) & ";"
Next int1
With Lista1
.RowSourceType = "Value List"
.RowSource = strRowSource
.Requery
End With
Espero que esto te sirva.
Suerte.
