ADOQuery и ComboBox

[jestergrid]

Здравствуйте, пишу курсовую программу, в чем собственно трабл:
есть 2 таблицы из одной в комбобокс вычитываються поля с номером и названием а в другую нужно добавить только номер

procedure TForm3.FormCreate(Sender: TObject);
begin
ADOQuery1.Active:=true;
combobox1.Items.Clear;
//ADOQuery2.SQL.Text:='select product_type&" "&type_name as product_type from product_type order by product_type';
ADOQuery2.SQL.Text:='select product_type from product_type';
adoquery2.Open;
datasource2.DataSet.First;
  while not datasource2.DataSet.Eof do
  begin
    combobox1.Items.Add(datasource2.DataSet.FieldValues['product_type']);
    datasource2.DataSet.Next;
  end;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
var s:string;
    i:byte;
begin
i:=1;
s:='';
while combobox1.Text[i]<>' ' do
   begin
   s:=s+combobox1.Text[i];
   inc(i);
   end;
   edit3.Text:=s;
if (edit1.Text='') or (edit2.Text='')
 then showmessage('Проверьте правильность введенных данных') else
  begin
    ADOQuery3.InsertRecord ([(edit1.text), (Edit3.Text),(Edit2.Text)]);
    ADOQuery3.ExecSQl;
    ADOQuery3.open;
  end;
end;

программа встаёт когда доходит до этого момента
Помогите пожалуйста, буду очень благодарен



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.