Dim StrCadenaDatos As String
Dim Contador As Integer
'Para rellenar un combo o un cuadro de lista en Sistemas
'Access 2000 o inferior no podemos utilizar el metodo
'AddItem y similares. Es decir, debemos hacerlo «a pelo»
'Y lo hacemos a través de la propiedad Origen de la Fila
'es decir RowSource
'Supongamos un combo que tiene sus elementos no ligados
'a una tabla, es decir, es una simple lista de valores...
'Primero, decimos el tipo origen:
   
   MiComboIndependiente.RowSourceType = "Lista de valores"
 'En este caso, supongamos que el combo está vacío....
 'Si no estuviera vacío, bastaría con poner, para vaciarle:
 
  Me.MiComboIndependiente.RowSource = ""
  'Ahora rellenamos, concadenando la cadena string
   StrCadenaDatos = "Este es el elemento numero UNO"
   StrCadenaDatos = StrCadenaDatos & ";" & "Este es el elemento numero DOS"
   'etc etc
   'Por ejemplo, metemos un tercer elemento
   StrCadenaDatos = StrCadenaDatos & ";" & "Este es el elemento tercero del combo"
   'Ahora cargamos estos datos al combo
   MiComboIndependiente.RowSource = StrCadenaDatos
   
   'Otra forma de hacer esto es mediante una colección.
   'Esto se lo ví a Edurado Olaz en una exposicion que hizo
   'hace tiempo ya....
   
   Dim MiColeccion As New Collection

   With MiColeccion
      .Add Item:="Primer elemento"
      .Add Item:="Segundo elemento"
      'Este nuevo elemento lo coloco delante del 1º
      .Add Item:="Éste es ahora el primer elemento", Before:=1
      .Add Item:="Cuarto elemento"
   'Construyo ahora la cadena con los elementos de la colección
   StrCadenaDatos = .Item(1)
   For Contador = 2 To MiColeccion.Count
      StrCadenaDatos = StrCadenaDatos & ";" & .Item(Contador)
   Next Contador

   End With
  
   MiComboIndependiente.RowSourceType = "Lista de valores"
   MiComboIndependiente.RowSource = StrCadenaDatos