VB проблем...

access база,таблица с 3 колони(field1-text,field2-yes/no,field3-text),форма с комбо бокс
------------------------
dim rs as new adodc.recordset
rs.open "select * from my_table" ,db,...etc
while rs.eof <> true
combo1.additem rs.fields(0).value
rs.movenext
wend
rs.close
' Няма проблем-сомбото се пълни
НО...........
while rs.eof <> true
if rs.fields(1)=true then
combo1.additem rs.fields(0).value
rs.movenext
end if
wend
'ГОЛЯМ ПРОБЛЕМ
Някой да има идея къде е грешката?

Имаш безкраен цикъл. Изкарай rs.movenext извън if-а.

Благодарим !!!
бахти тъпото......гледам го и не го виждам
Имаш черпене