Ошибка при выполнении сортировки (соединение с базой данных, две связанные таблицы, SQL Server, ADO )

Вроде бы все верно, но при исполнении дает ошибку "Текущий поставщик не поддерживает необходимый интерфейс для функции Index".
Помогите разобраться в чем дело.
[ code=C++ ]
void __fastcall TfmStore::btnSortClick(TObject *Sender)
{
switch (RadioGroup1->ItemIndex)
{
case 0: {ADOTable1->IndexName = "indS_Code"; break;}
case 1: {ADOTable1->IndexName = "indS_Price"; break;}
case 2: {ADOTable1->IndexName = ""; break;}
}
switch (RadioGroup2->ItemIndex)
{
case 0: ADOTable1->IndexDefs->Items[ADOTable1->IndexDefs->IndexOf(ADOTable1->IndexName)]->Options =
ADOTable1->IndexDefs->Items[ADOTable1->IndexDefs->IndexOf(ADOTable1->IndexName)]->Options << ixDescending;
break;
case 1: ADOTable1->IndexDefs->Items[ADOTable1->IndexDefs->IndexOf(ADOTable1->IndexName)]->Options =
ADOTable1->IndexDefs->Items[ADOTable1->IndexDefs->IndexOf(ADOTable1->IndexName)]->Options >> ixDescending;
break;
}
}
[/code ]