[Excel] Datei Lesen / Schreiben / Ändern - TADODataSet

[Andi1985]

ich habe doch noch ein Problem...
und zwar schreibt er nur einen Datensatz im Programmablauf in die Excel Datei...
alle darauffolgenden gehen verloren... wieso ist das so ?
ist die Datei beim zweiten mal schreibgeschützt ?

Die nachfolgenden Zeilen können mehrmals während des Programmablaufs ausgeführt werden...

ConnectionString:

Delphi-Quellcode:

myConnection := TADOConnection.Create(nil);
DataSet := TADODataSet.Create(nil);

myConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
                        + 'Data Source=' + sPath + 'test.xls;'
                        + 'Mode=ReadWrite;'
                        + 'Extended Properties="Excel 8.0;HDR=Yes";'
                        + 'Persist Security Info=False';

[/delphi]

Delphi-Quellcode:

DataSet.Connection := myConnection;
    DataSet.CommandText := 'SELECT * FROM [test$]';
    DataSet.Open;

    DataSet.First;
    while (DataSet.Eof = false) do
    begin
      if (DataSet.Fields[0].Text = txtPErsonalNummer.Text) then
      begin

        DataSet.Edit;
        DataSet.Fields[7].Text := 'X';
        DataSet.Post;

      end;
      DataSet.Next;
    end;

    DataSet.Close;
    myConnection.Close;