Не могу вывести данные из базы Access'a

[Ce4kok]

все компоненты кинул всё вроде прописал, но не отображает данные в DBGrid. Посмтотрите исходник и поскажите, что не так. Буду очень признателен.
http://ifolder.ru/10215634 cсылка на прогу

[crc83]

Во первых. Ексешник можно было в архив и не вставлять.
Во вторых. Можна было исключить из проэкта левые (нестандартниые) компоненты.

 BaseName:='БД VBA.mdb'; {файл должен находиться в корневом каталоге}
ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="'+BaseName+'"';//Лутше со скобками
{создаем поля таблицы в DBGrid}

DBGrid1.Columns.Add;
//Индексы начинай с нуля
DBGrid1.Columns[0].FieldName:='BookName';
DBGrid1.Columns[0].Width:=70;
DBGrid1.Columns.Add;
DBGrid1.Columns[1].FieldName:='Author';
DBGrid1.Columns[1].Width:=80;
DBGrid1.Columns.Add;
DBGrid1.Columns[2].FieldName:='Category';
DBGrid1.Columns[2].Width:=80;
DBGrid1.Columns.Add;
DBGrid1.Columns[3].FieldName:='Kind';
DBGrid1.Columns[3].Width:=80;
DBGrid1.Columns.Add;
DBGrid1.Columns[4].FieldName:='Publisher';
DBGrid1.Columns[4].Width:=80;

//Датасоурс не привязал к таблице
DBGrid1.DataSource:=DataSource1;

  AdoConnection1.ConnectionString:=ConString;
  ADOTable1.TableName:='VBA';  {указываем название таблицы в базе test.mdb}
  AdoConnection1.Open;
  AdoTable1.Active:=true;

у меня это заработало

[Ce4kok]

И данные отображались в DBGrid?

[Ce4kok]

После ввода логина и пароля мне выбивает ошибку:
Project Project1.exe raised expection class EListError with message "List index out of bounds (1)"

Что это может быть?

[Ce4kok]

ВСЁ получилось. Огромное тебе crc83 спасибо. Ты меня очень выручил. Сейчас хоть доделаю программу и можно документацией заняться.