Anita try,

combo1.clear
rs.movefirst
do
combo1.AddItem rs!State
rs.movenext
if rs.eof then exit do
loop
combo1.listindex = 0

hope it helps