Подскажыте в чем ошибка!

[grafgrial]

Не могу понять почему моя база не открывается и в edit"ах не показывает по отдельности. Подскажите плиз
сама база и прога

[Son]

У вас это компилировалось вообще? Вот исправления явных ошибок:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
ComObj;//модуль для работы с OLE

type
TForm1 = class(TForm)
dbgrd1: TDBGrid;
dbnvgr1: TDBNavigator;
dbgrd2: TDBGrid;
lbl1: TLabel;
lbl2: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
mmo1: TMemo;
cbb1: TComboBox;
procedure ExelItemClick(Sender: TObject);//не надо Form. при объявлении в классе
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses Unit2;//к чему ссылка на самого себя. только на Unit2

{$R *.dfm}

procedure TForm1.ExelItemClick(Sender: TObject);//В начале T забыли
var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject('Excel.Application' );
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Школа-Ученики';
Colum:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'].Columns;
Colum.Columns[1].ColumnWidth:=20;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlack;
Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'];
Sheet.Cells[1,2]:='Школа';
Sheet.Cells[2,1]:='Фамилия';
Sheet.Cells[2,2]:='Имя';
Sheet.Cells[2,3]:='Класс';
Sheet.Cells[2,4]:='Адрес';
Sheet.Cells[2,5]:='Телефон';

index:=3;
Unit2.DataModule2.ds2;//указываем с какого модуля. и эта строка непонятна, что вы хотите вызвать
for i:=0 to DataModule2.tbl1.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule2.tbl1.Fields.Fields[1].AsString;
Sheet.Cells[index,2]:=DataModule2.tbl1.Fields.Fields[2].AsString;
Sheet.Cells[index,3]:=DataModule2.tbl1.Fields.Fields[3].AsString;
Sheet.Cells[index,4]:=DataModule2.tbl1.Fields.Fields[5].AsString;
Sheet.Cells[index,5]:=DataModule2.tbl1.Fields.Fields[4].AsString;
Inc(index);
Unit2.DataModule2.tbl1.Next;//так же указываем явно модуль
end;
end;

end.

[grafgrial]

А у Вас после исправлений база смогла запустится?

[rdama]

Ну Все запустилось. Только исправления несколько иные в некоторых местах.
А что должно

в edit"ах не показывает по отдельности

Вод код с исправлениями:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    dbgrd1: TDBGrid;
    dbnvgr1: TDBNavigator;
    dbgrd2: TDBGrid;
    lbl1: TLabel;
    lbl2: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    edt5: TEdit;
    mmo1: TMemo;
    cbb1: TComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

     procedure ExelItemClick(Sender: TObject);

var
  Form1: TForm1;

implementation
uses Unit2;

{$R *.dfm}

procedure ExelItemClick(Sender: TObject);
var
 XLApp,Sheet,Colum:Variant;
 index,i:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Школа-Ученики';
 Colum:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'].Columns;
 Colum.Columns[1].ColumnWidth:=20;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=20;
 Colum.Columns[4].ColumnWidth:=20;
 Colum.Columns[5].ColumnWidth:=20;

 Colum:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'].Rows;
 Colum.Rows[2].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlack;
 Colum.Rows[1].Font.Size:=14;

 Sheet:=XLApp.Workbooks[1].WorkSheets['Школа-Ученики'];
 Sheet.Cells[1,2]:='Школа';
 Sheet.Cells[2,1]:='Фамилия';
 Sheet.Cells[2,2]:='Имя';
 Sheet.Cells[2,3]:='Класс';
 Sheet.Cells[2,4]:='Адрес';
 Sheet.Cells[2,5]:='Телефон';

 index:=3;
for i:=0 to DataModule2.tbl1.RecordCount-1 do
 begin
   Sheet.Cells[index,1]:=DataModule2.tbl1.Fields.Fields[1].AsString;
   Sheet.Cells[index,2]:=DataModule2.tbl1.Fields.Fields[2].AsString;
   Sheet.Cells[index,3]:=DataModule2.tbl1.Fields.Fields[3].AsString;
   Sheet.Cells[index,4]:=DataModule2.tbl1.Fields.Fields[5].AsString;
   Sheet.Cells[index,5]:=DataModule2.tbl1.Fields.Fields[4].AsString;
   Inc(index);
   DataModule2.tbl1.Next;
 end;
 end;

end.

И еще что значит не открывается? Вы у ADOTable свойство active в True ставите?
Ну или напишите на метод Create формы DataModule2.tbl1.Open; DataModule2.tbl2.Open;
Ну или можно на метод Create DataModul2 написать DataModule2.tbl1.Open; DataModule2.tbl2.Open;

[grafgrial]

Спасибо всем, открыл