Añadir elementos a la lista de un control ComboBox.

      Para añadir elementos a la lista de un control ComboBox, usamos el método .AddItem, de la siguiente manera:

      Private Sub AñadirItem()
            Combo1.AddItem "Item 1"
            Combo1.AddItem "Item 2"
            Combo1.AddItem "Item..."
            Combo1.AddItem "Item n"
      End Sub

      Si los datos que queremos añadir, estuvieran en un Control Data, lo hacemos de esta otra forma:

      Private Sub AñadirItem()
            Data1.Recordset.MoveFirst
            While Not Data1.Recordset.Eof
                  Combo1.AddItem Data1.Recordset("Campo")
                  Data1.Recordset.MoveNext
            Wend
      End Sub

      ¿Pero que pasaría si ese campo tuviera valores dupilcados y solo quiesieramos utilizar datos únicos?. Entonces debemos escribir el procedimiento de forma que nos compare si el valor ya está en el ComboBox para rechazar esa entrada.

      Private AñadirItem()
            Dim i As Long, ExisteYa As Boolean
            Data1.Recordset.MoveFirst
            While Not Data1.Recordset.EOF
                  ExisteYa = False
                  For i = 0 To Combo1.ListCount - 1
                        If Combo1.List(i) = Data1.Recordset("Campo") Then
                              ExisteYa = True
                              Exit For
                        End If
                  Next i
                  If Not ExisteYa Then
                        Combo1.AddItem Data1.Recordset("Campo")
                  End If
                  Data1.Recordset.MoveNext
            Wend
      End Sub