I want to export the records of a table in MS Access to a excel file or a tab delimited text file in DELPHI. Here i have tried with ADOTable since i have no idea of exporting it with ADODataset. My code is,

procedure TForm1.Button4Click(Sender: TObject);
const
   adClipString = 2;
   ColumnDelimiter = ';';
   RowDelimiter = #13#10;
var
   s : String;
   fs : TFileStream;
   export_filename:string;
   ADOTable1:TADOTable;
   rs123:TADODataset;
begin
    connect;
    rs123:=TADOdataset.create(nil);
    rs123.Connection :=con;
    rs123.CommandText :='select * from b_table1';
    rs123.Open;
    export_filename:='c:\test.csv';
   ADOTable1:=TADOTable.Create(nil);
   ADOTable1.Connection :=con;
   ADOTable1.TableName :='b_table1';
   ADOTable1.Open;
   s := ADOTable1.Recordset.GetString(adClipString, ADOTable1.Recordset.RecordCount, ColumnDelimiter, RowDelimiter, '');
fs := TFileStream.Create(export_filename, fmCreate);
 try
  fs.WriteBuffer(s[1], Length(s));
 finally
  fs.Free;
end;
   showmessage('completed');
end;

When i opened the excel file, i found that all the field values are stored in one cell separated by commas. But i want each of the field value in each column.

I want the output file with details in the following format(in the case of text file):
H      FirstName      LastName      Age      !!
A      Ram      Ramu      21      !!
A      Sam      Samu      19      !!
A      Sen      Senu      23      !!      

In case of Excel, i want each field value in separate columns.

Please help me.