Form2->ADODataSet1->Close();
	Form2->ADODataSet1->CommandText =
	"INSERT INTO les.\042Name_Stores\042(\042name_store\042,\042adress\042) VALUES('" +
	Edit1->Text+"','"+Edit2->Text+"');";
	try
		{
		ShowMessage(Form2->ADODataSet1->CommandText);
		Form2->ADODataSet1->Open();
		}
	catch(...)
		{
		ShowMessage("Не удалось записать данные");
		}

Form2->ADODataSet1->Close();
	Form2->ADODataSet1->CommandText = "SELECT * FROM les.\042Name_Stores\042";
	try
		{
		Form2->ADODataSet1->Open();
		}
	catch(...)
		{
		ShowMessage("Ошибка соединения с базой");
		}