很急，请高手改正错误！

Question

Application.CreateForm(TMainDataModule, MainDataModule);
    MainDataModule.ADOConnection1.Connected := False ;
    SourFilePath := ExtractFilePath(Application.ExeName) ;
     MainDataModule.ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=true;User ID='+user+';password='+psd+';Initial Catalog='+database
   + ';Network=DBMSSOCN;Data Source='+datasource+',1433' ;
     MainDataModule.ADOConnection1.Connected := True ;
    MainDataModule.ADOConnection2.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+wuser+';password='+wpsd+';Initial Catalog='+wdatabase
    + ';Network=DBMSSOCN;Data Source='+wdatasource+',1433' ;
    MainDataModule.ADOConnection2.Connected := True ;
    F_fm.Free ;
    Application.CreateForm(TF_Main, F_Main);
    Application.Run;
本段代码原来是运行正常的，可是当我升级系统，然后覆盖原来的exe文件时，却出现奇怪现象。说‘对象打开时，操作不被允许’的提示。请各位兄弟姐妹帮忙解决一下。感激不尽。

Answer 1

有
    MainDataModule.ADOConnection1.Connected := False ;
但没有
    MainDataModule.ADOConnection2.Connected := False ;
你的ADOConnection2在设计时连接没有?

Answer 2

Application.CreateForm(TMainDataModule, MainDataModule);
    MainDataModule.ADOConnection1.close;
    MainDataModule.ADOConnection1.Connected:= False ;
    SourFilePath := ExtractFilePath(Application.ExeName) ;

Answer 3

出现这种错误就是adoconnection1的connected被设为true了，检查一下你的两个adoconnection

Answer 4

同意ysai(赛赛)，得加上
MainDataModule.ADOConnection2.Connected := False ;

Answer 5

Application.CreateForm(TMainDataModule, MainDataModule);
        MainDataModule.ADOConnection1.close;
    MainDataModule.ADOConnection1.Connected:= False ;
MainDataModule.ADOConnection1.ConnectionString:='';    
SourFilePath := ExtractFilePath(Application.ExeName) ;
     MainDataModule.ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=true;User ID='+user+';password='+psd+';Initial Catalog='+database
   + ';Network=DBMSSOCN;Data Source='+datasource+',1433' ;
     MainDataModule.ADOConnection1.Connected := True ;
MainDataModule.ADOConnection2.close;
MainDataModule.ADOConnection2.ConnectionString:=false;
MainDataModule.ADOConnection2.ConnectionString:='';    MainDataModule.ADOConnection2.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+wuser+';password='+wpsd+';Initial Catalog='+wdatabase
    + ';Network=DBMSSOCN;Data Source='+wdatasource+',1433' ;
    MainDataModule.ADOConnection2.Connected := True ;
    F_fm.Free ;
    Application.CreateForm(TF_Main, F_Main);
    Application.Run