数据模块里想判断如果SQL连不上,就打开数据库设置窗口,这个代码错在那里.

unit DataModule;interfaceuses
  SysUtils, Classes, DB, ADODB;type
  Tdm = class(TDataModule)
    Conn: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  dm: Tdm;implementationuses welcome, dbsetup;{$R *.dfm}procedure Tdm.DataModuleCreate(Sender: TObject);
var
  frmWelcome:TfrmWelcome;
  frmDbsetup:TfrmDbsetup;begin
  frmWelcome:=TfrmWelcome.Create(self);
  frmwelcome.Show;  try
    conn.ConnectionString:='Provider=SQLOLEDB.1;Password=s1111;Persist Security Info=True;User ID=sa;Initial Catalog=runsheng;Data Source=localhost';
    conn.Connected:=true;  except
    frmDbsetup:=TfrmDbsetup.Create(self);
    frmDbsetup.Show;  end;
end;end.