SoloCodigo

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.