Merkwürdiges Problem: SQL Zugriff funktioniert nur übers WAN

[emsländer]

Moin,

hab hier mal wieder ein nettes Problemchen. Der Zugriff übers WAN (DSL6000 via VPN) klappt.
Im LAN selbst wird der Datensatz nicht gefunden, als wenn dem Rechner da irgendwas zu schnell geht

Delphi-Quellcode:

function zeige_dokument_aus_sql(nummer, dokumentname, sAppDir : string) :integer;
  var _stmp : string;
   _query : Tsqlquery;
   erg64 : string;
   erg   : string;
   fs    : TFilestream;
begin
  result := 0;
  _query := TSQLquery.Create(nil);
     _query.sqlconnection := AktenManager.SQLConnection;
     try
      if fileexists(sAppDir+'\tmp.rtf') then deletefile(sAppDir+'\tmp.rtf');
      _stmp := 'select dokument from  finanzdesk.dbo.vertragswerk where lfdnr ='+nummer;
      aktenmanager.edt_sql_userverwaltung.Text := _stmp;
      AktenManager.edt_sql_userverwaltung.Visible := aktenmanager.cb_sql_userverwaltung.Checked;
      _query.sql.Text := _stmp;

      _query.open;  //=> bis hierhin klappts. 

      erg64 := _query.FieldByName('dokument').Value;
      _query.close;
      erg := base64decode(erg64);
      fs := tfilestream.create(sAppDir+'\tmp.rtf', fmcreate);
      fs.Write(erg[1],Length(erg));
      fs.free;
      frm_unterlagentext.Caption :='AktenManager Textverarbeitung: '+dokumentname;
      frm_unterlagentext.edt_nummer.Text := nummer;
      frm_unterlagentext.Showmodal;
     except
      result := 99;
     end;
   freeandnil(_query);
end;

Dank im Voraus

Gruss

EL