SQL服务器连接问题
程序正常情况下连接SQLserver2005没有问题，如果SQLserver2005服务器连接失败，程序在进程中无法关闭，就只能调出进程管理，手动结束进程才行。我在DM下添加的ADO控件 ，其他窗体都是调用DM的，没有自己连库的情况出现，所有ADOconnection，adoquery控件都在DM上面放置的，在DM的Create下代码如下，是不是代码有问题？还是这么做不妥呀？？请教了
procedure TWMG_DM.DataModuleCreate(Sender: TObject);
var
con:string;
begin
CNN.Connected:=False;
CNN.LoginPrompt:=False;
CNN.ConnectionTimeout:=10;
con:='Provider=SQLOLEDB.1;'+'Password=123456;Persist Security Info=false;'+'User ID=sa;Initial Catalog=MgsebSQL;'+'Data Source=9POIIOA26626E2\SQLEXPRESS';
CNN.ConnectionString :=con;
try
CNN.Connected :=true;
except
application.MessageBox('连接数据库失败！请查看服务器是否开启','提示',0+64) ;
CNN.Connected :=false;//这句好像不加也一样吧
Application.Terminate;
Exit;
end;
end;
