运行事务出现"新事务不能登记到指定的服务器上"请指点

我想实现数据上传功能 使用下面语句出现
"新事务不能登记到指定的服务器上" 请指点,代码如下
var ini:TiniFile;
   localsrv,remotesrv:string;
    constr,qrystr,tempstr1:string;
begin
  try
 ini:=TiniFile.Create(ExtractFileDir(Application.ExeName)+'/server.ini');  localsrv:=ini.ReadString('localserver','name','yoyo');
  remotesrv:=ini.ReadString('comserver','name','yoyo');  ini.Free;  localADOConnection.Connected:=false;     localADOConnection.ConnectionString:='Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=gyhyk;Data Source='+localsrv+'; Network library=dbmssocn';
  localADOConnection.Connected:=true;
 localADOConnection.BeginTrans;
  try 
qrystr:='delete from hyk ';
localADOtemp.Close;localADOtemp.SQL.Clear; localADOtemp.SQL.Add(qrystr); try localADOtemp.ExecSQL finally end;tempstr1:='SQLOLEDB';qrystr:='insert into hyk(kh,xm,je,rq1,yxq1,zt,dzl,yxq2,xfds,sfcz,sfdz,sfjd,bz,username) select kh,xm,je,rq1,yxq1,zt,dzl,yxq2,xfds,sfcz,sfdz,sfjd,bz,username from  OPENDATASOURCE('+chr(39)+tempstr1+chr(39)+','+chr(39)+'Data Source='+remotesrv+';User ID=sa;Password=123'+chr(39)+').gyhyk.dbo.hyk';
localADOtemp.Close;localADOtemp.SQL.Clear; localADOtemp.SQL.Add(qrystr); try localADOtemp.ExecSQL finally end;
    localADOConnection.CommitTrans;
  messagebox(handle,pchar('数据库下载成功!'),pchar('信息！'),64); except
        on   E:   Exception   do
        begin
           localADOConnection.RollbackTrans;   //事务异常则回滚
            ShowMessage(E.Message);
            Exit;
        end;
        end;
  except
   ON E:exception DO
     begin
       showmessage('系统连接服务器失败、请检查网络配置！');     end
   end;