خطا در زمان ارتباط با بانک

با سلام

من یک کلاس در یک یونیت ایجاد کردم که در زیر می بینید. (با استفاده از XE2)
ابتدا FConnection را به عنوان یک فیلد داخل کلاس تعریف کردم. به خطا خورد، بعد فکر کردم اگر این متغیر را به عنوان سراسری تعریف کنم مشکل حل می شود که متاسفانه نشد.

unit UnitDatabase;



interface

  uses

    ADODB, db, dialogs, sysutils, classes;



const

  DataBaseProvider : array [0..3] of string =

    ('Provider=Microsoft.Jet.OLEDB.3.51',

     'Provider=Microsoft.Jet.OLEDB.4.0',

     'Provider=Microsoft.ACE.OLEDB.12.0',

     'Provider=SQLOLEDB.1');

type

  TdbType = (dbAccess97, dbAccess2003, dbAccess2007, dbSQLServer);

  TADODatabase = class

  public



    FQuery     : TADOQuery;

    FCommand   : TADOCommand;

    FDataSet   : TADODataSet;

  public

    constructor Create(AServerName: string; DBType: TdbType = dbAccess2003);

  end;

var

  FConnection: TADOConnection;

implementation



{ TADODatabase }



constructor TADODatabase.Create(AServerName: string; DBType: TdbType);

begin

  inherited Create;

  FConnection := TADOConnection.Create(nil);

  with FConnection do

  begin



    ConnectionString := DataBaseProvider[ord(DBType)]+

    ';DataSource=' + AServerName + ';Persist Security Info=False';

    Provider := DataBaseProvider[ord(DBType)];

    try

      Connected := True;

    except

      on e: exception do

      begin

        ShowMessage(e.Message);

      end;

    end;

  end;



end;



end.

حالا زمانی که این کلاس رو به صورت زیر فراخوانی می کنم:

procedure TForm1.Button1Click(Sender: TObject);

var

  db: TADODatabase;

begin

  db.Create('I:\Projects\92\Namayandegi\db.mdb', dbAccess2003);

end;

خطاهای زیر را نمایش می دهد: خطای دوم را سه با نمایش می دهد.


ضمیمه 110307
ضمیمه 110306
ضمیمه 110305