Inhald eines DBGrid nach Excel exportieren ?

[Vader]

hallo,

jetzt habe ich so viele möglichkeiten aber nirgenswo komme ich weiter,
habe das 2 beispiel von omata probiert,

Delphi-Quellcode:

uses ... OleServer, Excel2000 ... 
: 
: 
var Excel:TExcelApplication; 
    lcid:integer; 
    Workbook:_Workbook; 
    Query, Range, Sheet:Variant; 
    User, Database, ODBCname:string; 
begin 
  Excel:=TExcelApplication.Create(Self); 
  try 
    lcid:=GetUserDefaultLCID; 
    Excel.Connect; 
    Excel.Visible[lcid] := true; 
    Excel.UserControl := true; 

    Workbook:=Excel.Workbooks.Add(EmptyParam, LCID); 

    User:='ich'; 
    ODBCname:='LocalServer'; 
    Database:='MeineDatenbank'; 

    Sheet:=Workbook.ActiveSheet; 
    Range := Excel.Cells.Range['A1', 'A1']; 
    Query:=Sheet.QueryTables.Add( 
      'ODBC;' + 
      'DSN=' + ODBCname + ';' + 
      'UID=' + User + ';' + 
      'APP=Microsoft® Query;' + 
      'DATABASE=' + Database + ';' + 
      'Trusted_Connection=Yes', 
      Range 
    ); 
    Query.CommandText:='SELECT * FROM tabelle'; 
    Query.Name:= 'Meine Abfrage von LocalServer'; 
    Query.FieldNames := True; 
    Query.RowNumbers := False; 
    Query.FillAdjacentFormulas := False; 
    Query.PreserveFormatting := True; 
    Query.RefreshOnFileOpen := False; 
    Query.BackgroundQuery := True; 
    Query.RefreshStyle := xlInsertDeleteCells; 
    Query.SavePassword := True; 
    Query.SaveData := True; 
    Query.AdjustColumnWidth := True; 
    Query.RefreshPeriod := 0; 
    Query.PreserveColumnInfo := True; 
    Query.Refresh(False); 
  finally 
    Excel.Disconnect; 
    Excel.free; 
  end; 
end;

muß ich bei den codezeilen an mein projekt anpassen ?

Delphi-Quellcode:

User:='ich'; 
    ODBCname:='LocalServer'; 
    Database:='MeineDatenbank'; 

und

Query.CommandText:='SELECT * FROM tabelle'; 
    Query.Name:= 'Meine Abfrage von LocalServer';

es wird beim ausführen eine excelmappe geöffnet,und dann kommt ein fenster wo steht datenquelle auswählen,
welche muß ich auswählen ?

und es kommt der fehler: Allgemeiner ODBC FEHLER !!!

mfg vader