Adding a table to Excel - Works in D5.0, not in D6.0

Hi All,

I just recompiled a D5.0 program with D6.0.
The program works fine when compiled with D5.0, it stopped working under
D6.0

When trying to refresh a querytable added to an Excel worksheet I get an
errormessage.
The errormessage occurs in the code below in the line
"QueryTable.Refresh(False)"
The errormessage is in dutch, but roughly translates as "The datafile is not
complete"

Can anyone help, please?

TIA,
Robert.

Code follows:
==========

procedure TFRMMain.OpenAndMerge(Filename: string; TableName: string;
NetFileDir: string; Range: string = 'A1');
var
  Connection: String;
  SQL: Variant;
  QueryTable: Variant;
  SQLTableName: string;
begin

  ActivateServer;

  OpenAndRefresh(Excel, FileName);

  Connection := 'ODBC;';
  Connection := Connection + 'CollatingSequence=International;';
  Connection := Connection + 'DBQ='+ExtractFilePath(TableName)+';';
  Connection := Connection + 'DefaultDir='+ExtractFilePath(TableName)+';';
  Connection := Connection + 'Driver={Microsoft Paradox Driver (*.db )};';
  Connection := Connection + 'DriverId=538;';
  Connection := Connection + 'FIL=Paradox 3.X;';
  Connection := Connection + 'ImplicitCommitSync=Yes;';
  Connection := Connection + 'MaxBufferSize=512;';
  Connection := Connection + 'MaxScanRows=8;';
  Connection := Connection + 'PageTimeout=600;';
  Connection := Connection + 'ParadoxNetPath='+NetFileDir+';';
  Connection := Connection + 'ParadoxNetStyle=4.x;';
  Connection := Connection + 'ParadoxUserName=admin;';
  Connection := Connection + 'SafeTransactions=0;';
  Connection := Connection + 'Threads=3;';
  Connection := Connection + 'UID=admin;';
  Connection := Connection + 'UserCommitSync=Yes;';

  SQLTableName := ExtractFileName(TableName);
  SQLTableName := Copy(SQLTableName, 1, Pos('.', SQLTableName)-1);

  SQL := 'SELECT *'#13#10'FROM '+SQLTableName+' '+SQLTableName;

  QueryTable := Excel.ActiveSheet.QueryTables.Add(Connection,
Excel.Range[Range]);
  QueryTable.Sql := SQL;
  QueryTable.FieldNames := True;
  QueryTable.RefreshStyle := xlInsertDeleteCells;
  QueryTable.RowNumbers := False;
  QueryTable.FillAdjacentFormulas := True;
  QueryTable.RefreshOnFileOpen := False;
  QueryTable.HasAutoFormat := False;
  QueryTable.BackgroundQuery := True;
  QueryTable.TablesOnlyFromHTML := True;
  QueryTable.Refresh(False);
  QueryTable.RefreshOnFileOpen := True;
  QueryTable.SavePassword := True;
  QueryTable.SaveData := False;

end;