Problema com ComboBox

Eu tenho uma ComboBox que lista um campo de todos os registros de uma tabela.

O bloco de comandos que faz isso eh carregado no Form_Load da seguinte forma:

Dim sql As String Dim i As Integer sql = "SELECT * FROM Rede" Set rs2 = bd.OpenRecordset(sql) For i = 0 To rs2.RecordCount - 1 cmbRede.AddItem rs2.Fields("Nome") rs2.MoveNext Next

A tabela Rede tem mais ou menos uns 4 ou 5 registros, todos com o campo "Nome" preenchidos corretamente.

Mas quando eu carrego o formulario ele soh mostra na ComboBox o primeiro nome do primeiro registro da tabela, pq ele nao mostra os outros?