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;