Form2 := TForm2.Create(Self);
   Form2.Show;

Form1.CdsListProdutos.Close;
     Form1.CdsListProdutos.CreateDataSet;
     Form1.CdsListProdutos.Open;