又要麻烦各位大哥，真不好意思了．数据模块设计的问题

Question

初学Delphi,看了遍基础知识，照着书上做两个例子，却总出错误．是一个图书管理信息系统，主窗口通过编译，在数据模块设计的时候出了的问题，初始化程序如下：
unit Unit6;interfaceuses
  SysUtils, Classes, ADODB, DB,Main;type
  TDataModuleADO = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DataModuleADO: TDataModuleADO;
implementation{$R *.dfm}procedure TDataModuleADO.DataModuleCreate(Sender: TObject);
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+
        Mypath+'Data\BookManage.mdb;Jet OLEDB:Database Password='+MypassW=';Persit
        Security Info=False';
        ADOQuery1.Connection:=ADOConnection1;
        ADOTable1.Connection:=ADOConnection1;
end;end.
运行后出的问题就是[Fatal Error] Unit6.pas(6): File not found: 'Main.dcu'，
如果我去掉uses中的Main,却是
[Error] Unit6.pas(31): Undeclared identifier: 'Mypath'
[Error] Unit6.pas(31): Undeclared identifier: 'MypassW'
[Error] Unit6.pas(32): Incompatible types: 'String' and 'Integer'
[Error] Unit6.pas(32): Incompatible types: 'String' and 'Integer'
[Error] Unit6.pas(32): ':=' expected but '=' found
[Error] Unit6.pas(33): Missing operator or semicolon
[Fatal Error] Project1.dpr(10): Could not compile used unit 'Unit6.pas'
这些错误．
请问我该如何解决？在线等！如果哪位大哥有时间可否加QQ540089223指教下．

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls;type
  TMainForm = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    TabSheet2: TTabSheet;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  MainForm: TMainForm;implementationuses Unit2, Unit3, Unit4, Unit5;{$R *.dfm}procedure TMainForm.FormCreate(Sender: TObject);
 var
 MyPath:String;begin
MyPath:=ExtractFilePath(ParamStr(10));
ShortdateFormat:='yyyy/mm/dd';end;procedure TMainForm.Button1Click(Sender: TObject);
begin
  BookForm.Show;
end;procedure TMainForm.Button2Click(Sender: TObject);
begin
  ReaderForm.Show;
end;procedure TMainForm.Button3Click(Sender: TObject);
begin
  LendForm.Show;
end;procedure TMainForm.Button4Click(Sender: TObject);
begin
  Close;
end;procedure TMainForm.Button5Click(Sender: TObject);
begin
  QueryForm.Show;
end;procedure TMainForm.Button6Click(Sender: TObject);
begin
  QueryForm.Show;
end;procedure TMainForm.Button7Click(Sender: TObject);
begin
  QueryForm.Show;
end;procedure TMainForm.Button8Click(Sender: TObject);
begin
  Close;
end;end.
这是主窗口的程序．

Answer 2

貌似是
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+
        Mypath+'Data\BookManage.mdb;Jet OLEDB:Database Password='+MypassW=';Persit
        Security Info=False';
里面的问题，Mypath，MypassW在main要定义为全局变量