[preciso fazer um update desta tabela e não consigo grato pela ajuda]

procedure TForm4.BtnInserirVacinaClick(Sender: TObject);

begin

if ADOConnection1.Connected = True then

begin

ADOQuery1.SQL.Clear();

ADOQuery1.SQL.Add('Insert Into Vacinas (cod_vacina, descr_vacina, '+

' cod_fornecedor)values ('+EdCodVacinas.Text+', '+

' '+QuotedStr(EdDescrVacina.Text)+', '+

' '+CodiFornecedor.Text+')');

ADOQuery1.ExecSQL;

ShowMessage('Dados inseridos com sucesso!');

end else

ShowMessage('Favor conectar no banco de dados');

end;