Добавление и редактирование записи в бд

[Spacer]

Здравствуйте! Есть база данных access, подключена через ado, отображается через dbgrid. Необходимо, чтобы после сравнения введенного значения со значением одного поля бд добавлялась, либо редактировалась запись. Условие в том, чтобы при равных значениях запись добавлялась, а при несовпадении увеличвалось лишь значения поля каличество.
Написал следующий код, но ничего не происходит:

if (R==1) // проверка режима
	  {a=0;
	   ADOTable1->Last();//курсор на последнюю запись
	   n=ADOTable1->Fields->Fields[0]->Value; // фиксация значения последней записи
	   ADOTable1->First();//курсор на первую запись

	   for(ADOTable1->First();ADOTable1->Fields->Fields[0]->Value<=n;ADOTable1->Next()) {if (EditUDK->Text==ADOTable1->Fields->Fields[1]->AsString) {a=1;n2=ADOTable1->Fields->Fields[0]->Value;};

	   if (a==1)
	   {ADOTable1->Open();ADOTable1->Locate("Code",n2,TLocateOptions());ADOTable1->Edit();ADOTable1->Fields->Fields[5]->Value=ADOTable1->Fields->Fields[5]->Value+StrToInt(EditKol->Text);ADOTable1->Post();fSpisok->ADOTable1->Active="False";ADOTable1->Active="True";ADOTable1->Sort="Year DESC";}
	   else
	   {

	   ADOTable1->Append(); //добавление  записи
	   ADOTable1->Fields->Fields[1]->Value=EditUDK->Text;
	   ADOTable1->Fields->Fields[2]->Value=EditA->Text;
	   ADOTable1->Fields->Fields[3]->Value=EditN->Text;
	   ADOTable1->Fields->Fields[4]->Value=EditY->Text;
	   ADOTable1->Fields->Fields[5]->Value=StrToInt(EditKol->Text);
	   ADOTable1->Post();}

	  };}

Может, нужно как-то по-другому, вроде логически всё верно.