Verbindung geht nicht. Was ist falsch?

[Jack23]

Hallo ich habe das von dsdt.info flexible ADO Conection angefangen aber komme nicht weiter.

Wo liegt in diesem Code der Fehler?

Delphi-Quellcode:

unit DatenmodulUnit;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
   function OpenDatabase: Boolean;
  function CloseDatabase: Boolean;

  function TDataModule2.OpenDatabase: Boolean;

begin
  OpenDatabase:=true;
  try
    ADOConnection1.Open;
  except
    OpenDatabase:=false;
  end;
end;

function TDataModule2.CloseDatabase: Boolean;
begin
  CloseDatabase:=true;
  try
    ADOConnection1.Close;
  except
    CloseDatabase:=false;
  end;
end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.