MS Access выдает ошибку при добавлении записи "Ключ уже существует"

Procedure S(textIn:string); //добавляет в memo1 на форме надпись переданную в параметре textIn
begin
   Memo1.Lines.add(textIn);//добавляем текст                                     
   Application.ProcessMessages; //даем мемо прорисоваться                                                    
end;
 
Function CreateSettingsBD:Boolean;
var
   PathToRuntimest:string;
   PathToBase:string;
   SettingsDB:TDataBases;
begin
   PathToRuntimest := PathToRuntime;
   PathToBase := PathToRuntimest +'\DataBase\';
                               
   SettingsDB := TDataBases.Create(self);//создаем экземпляр класса
   SettingsDB.ConnectToBase(PathToBase + 'DBFile46.mdb');
  
        
   if not SettingsDB.TabExists('Settings') then //проверяем есть ли в файле таблица
   begin      //если ее нет то добавляем ее
      SettingsDB.QueryText := 'CREATE TABLE Settings (ID AUTOINCREMENT primary key, OpenAPIKey1 VARCHAR(50), SecretAPIKey1 VARCHAR(50));';
      SettingsDB.SendCommand;
      s('Создали таблицу Settings...');                  
  
   end;
   result := true;
end;

Procedure S(textIn:string); //добавляет в memo1 на форме надпись переданную в параметре textIn
begin
   Memo1.Lines.add(textIn);//добавляем текст                                     
   Application.ProcessMessages; //даем мемо прорисоваться                                                    
end;
 
Function CreateSettingsBD:Boolean;
var
   PathToRuntimest:string;
   PathToBase:string;
   SettingsDB:TDataBases;
begin
   PathToRuntimest := PathToRuntime;
   PathToBase := PathToRuntimest +'\DataBase\';
                               
   SettingsDB := TDataBases.Create(self);//создаем экземпляр класса
   SettingsDB.ConnectToBase(PathToBase + 'DBFile46.mdb');
  
        
   if not SettingsDB.TabExists('Settings') then //проверяем есть ли в файле таблица
   begin      //если ее нет то добавляем ее
      SettingsDB.QueryText := 'CREATE TABLE Settings (ID AUTOINCREMENT primary key, OpenAPIKey1 VARCHAR(50), SecretAPIKey1 VARCHAR(50));';
      SettingsDB.SendCommand;
      s('Создали таблицу Settings...');                  
  
   end;
   result := true;
end;
 
Function SaveSettingsBD(OpenKey,SecretKey:string):Boolean;
begin
     if Length(OpenKey)> 50 then
     begin                                       
        showMessage('Открытый ключ длинной более 50 символов и не может быт сохранен в базу настроек!!!');
        result := false;
        exit;                    
     end;                           
     if Length(SecretKey)> 50 then
     begin                                       
        showMessage('Секретный ключ длинной более 50 символов и не может быт сохранен в базу настроек!!!');
        result := false;
        exit;                    
     end;
     SettingsDB.QueryText := 'Select * From Settings';
     SettingsDB.MakeQuery;
          
   if SettingsDB.First then
   begin
      SettingsDB.QueryText := 'UPDATE Settings set ID = 1,OpenAPIKey1 = ' + QuotedStr(OpenKey) +',SecretAPIKey1 = '+ QuotedStr(SecretKey) +';'
      showMessage('Мы тут');                                    
   end                        
   else
   begin
      SettingsDB.QueryText := 'INSERT INTO Settings (ID,OpenAPIKey1,SecretAPIKey1 ) VALUES (20,' + QuotedStr(OpenKey) +
    ' , ' + QuotedStr(SecretKey)+ ');';
      //showMessage('Мы в инсерте '+ QuotedStr(OpenKey) + ' SecretKey: '+QuotedStr(SecretKey));
      S(SettingsDB.QueryText);  //мы заходим сюда в любом случае с любого раза, т.к. в базу ничего не добавляется....                                  
   end;                          
       
   DBOrders.SendCommand;  //вот тут мы получаем ошибку...
   result:= true;                                    
      
end;

Function CreateOrdersDBForSum:boolean;    
begin
   if not DBOrdersForSumm.TabExists('Orders') then //проверяем есть ли в файле таблица
   begin      //если ее нет то добавляем ее         
 
      DBOrdersForSumm.QueryText := 'CREATE TABLE Orders (order_id VARCHAR(20),type VARCHAR(20),created VARCHAR(20),pair VARCHAR(20),price numeric(24,8),quantity numeric(24,8),amount numeric(15,4),OpenOrderPrice numeric(15,4),Status VARCHAR(10),CreatedNormalDate VARCHAR(30));';
      DBOrdersForSumm.SendCommand;          
 
   end
   else       
       DBOrdersForSumm.ClearTable('Orders');  
  
   result := true;
 
end;          
 
Function CreateOrdersDB:boolean;
begin
   if not DBOrders.TabExists('Orders') then //проверяем есть ли в файле таблица
   begin      //если ее нет то добавляем ее         
      
      DBOrders.QueryText := 'CREATE TABLE Orders (order_id VARCHAR(20),type VARCHAR(20),created VARCHAR(20),pair VARCHAR(20),price numeric(24,8),quantity numeric(24,8),amount numeric(15,4),OpenOrderPrice numeric(15,4),Status VARCHAR(10),CreatedNormalDate VARCHAR(30));';
      DBOrders.SendCommand;          
   end;
 
   try           
        DBOrders.QueryText :=  'ALTER TABLE Orders ADD CONSTRAINT PK_order_id PRIMARY KEY (order_id)';
        DBOrders.SendCommand;
   except
   end;
 
   result := true;         
 
end;

DBOrders.SendCommand;  //вот тут мы получаем ошибку...

SettingsDB.SendCommand;