Определение состояния Checkbox по состоянию базы

[Wi1D]

Сразу вопрос.Имеется БД на Акцессе. Я к ней подключаюсь через ADO посредством Делфи!Как с помощью SQL наиболее быстро можно определить, например
имеет ли колонка Страна значение Китай....
Мне это нужно для решения состояния чека в ChecklistBox.
мой вариант но он очень долгий

                          main_win.main_AQ.Active:=false;
                                    main_win.main_AQ.SQL.Clear;
                                    main_win.main_AQ.SQL.Add('SELECT * FROM zakazs WHERE (fabricy="'+fabric.Text+'") and (status<>:vplane) and (status<>:zakrepleno) and (client="'+
this_fabric.Items[i]+'")');
                                    main_win.main_AQ.Parameters.ParamByName('vplane').Value:=vplane;
                                    main_win.main_AQ.Parameters.ParamByName('zakrepleno').Value:=zakrepleno;
                                    main_win.main_AQ.Active:=true;
                                    if (main_win.main_AQ.Locate('sost','1',[])=false) and (main_win.main_AQ.Locate('sost','2',[])=false) then
                                        this_fabric.State[i]:=cbUnChecked;
                                    else if (main_win.main_AQ.Locate('sost','0',[])=false) and (main_win.main_AQ.Locate('sost','2',[])=false) then
                                        this_fabric.State[i]:=cbChecked
                                    else
                                        this_fabric.State[i]:=cbGrayed;

есть код проще этого???

[mihali4]

Вычисляемое поле.