ADOCONNECTION连接不上服务器的报错处理(100分)

使用ADOCONNECTION连接数据库时，如果我把数据库服务停止，使用异常也不行，就死了。
我的代码：
try
if datamodule1=nil then
Application.CreateForm(TDataModule1, DataModule1);
datamodule1.connection.Close;
datamodule1.connection.Open;
if datamodule1.connection.Connected=false then
begin
messagedlg('连接服务器失败,请重新登录!',mterror,[mbok],0);
application.Terminate;
end;
except
on E: Exception do
begin
messagedlg('连接服务器失败,请重新登录!',mterror,[mbok],0);
application.Terminate;
end;
end;
请各位高手帮忙，不胜感激。

都已经出错了你还要判断什么？当然死机。试试下面的：
try
if datamodule1=nil then
Application.CreateForm(TDataModule1, DataModule1);
datamodule1.connection.Close;
datamodule1.connection.Open;
except
on E: Exception do
begin
messagedlg('连接服务器失败,请重新登录!',mterror,[mbok],0);
application.Terminate;
end;
end;

甚至还可以再精练成这样：
try
if datamodule1=nil then
Application.CreateForm(TDataModule1, DataModule1);
datamodule1.connection.Close;
datamodule1.connection.Open;
except
messagedlg('连接服务器失败,请重新登录!',mterror,[mbok],0);
application.Terminate;
end;

呵呵，来晚了！[][]

不行，我仍然是程序不能继续

另外再问一个初级问题：为什么有时候老是出现can not make a visible module form
我是用application.createform.一开始没有问题，随着布局改变，就不行了。
不能showmodal,我很难过。
请帮忙。告诉小弟问题所在

多人接受答案了。

visible form需要先释放掉以后，才能重新建立。要用到free、destroy等命令，你可以自己多试试看。