if (Registry->OpenKey("Software\\ODBC\\ODBC.INI\ODBC Data Sources",FALSE))
{
Registry->WriteString("MyAccessTest","Driver do Microsoft Access (*.mdb)");
AnsiString s ;
s = Registry->ReadString("MyAccessDSN");
}
else
{
ShowMessage("Create the MyAccess Error");
}