Ayuda con ado

Hola tengo que realizar una aplicación que recupere datos de una BD en access. Lo malo es que solo me recupera el 1º reg
te pongo el código:
Option Explicit
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Const path As String = "D:\Proyecto SIMAcv\BD\Procesos_1.mdb"
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\Proyecto SIMAcv\VB\CP_Sima CV\Procesos_1.mdb"
.Open
End With
rs.Open "select nombre from materiales", cnn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem rs.Fields(0)
rs.MoveNext
Loop
Label1.Caption = rs.RecordCount
End Sub