Всем привет. Заполняю комбо бокс значением из рекордсета

rs.MoveFirst
Combo1.Text = rs.Fields("1").Value
Combo2.Text = rs.Fields("2").Value

rs.MoveFirst
Combo3.Text = rs.Fields("3").Value
Combo4.Text = rs.Fields("4").Value

rs.MoveFirst
Do While Not rs.EOF
With Combo5
.AddItem rs.Fields("5").Value
End With
rs.MoveNext
Loop

в итоге во всех комбах кроме первого отображдается нужный текст
Хотя в рекордсете он сто процентов не пустой.
В чём фишка?