// Opendialog öffnen und AdoConnection verbinden

      Adoconn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
        'Provider=Microsoft.Jet.OLEDB.4.0; ' +
        'Data Source=' + Opendialog.Filename + ';' +
        'Extended Properties=Excel 8.0; ' + //<< immer Excel 8.0 !!!
        'Persist Security Info=False';
      Adoconn.open;
      
      // Eine Combobox (xlsWorksheets mit den Arbeitsbereichsseiten der Excel Arbeitsmappe füllen

      xlsWorksheets.Enabled := Adoconn.Connected;
      if Adoconn.Connected then
      begin
        Adoconn.GetTableNames(xlsWorksheets.Items, true);
      end;

      // Wenn es mindestens eine Arbeitsbereichsseite gibt > Auswählen und Öffnen
      
      ...
       User die gewünschte Arbeitsbereichsseite wählen lassen
       ggf. automatisch xlsWorksheets.Items[0] verwenden, falls es nur eine Arbeitsbereichsseite gibt
      ...

      if xlsWorksheets.items.count =0 then
      begin
        Showmessage('In der gewählten Arbeitsmappe sind keine Arbeitsbereichsseiten verfügbar');
        exit;
      end
      else begin
         Tabelle:='['+xlsWorksheets.items[xlsWorksheets.itemindex] +']';
             // die eckigen Klammern sind nötig weil der Tabellenname Sonderzeichen enthält ("$")
         With AdoQueryXLS do
         begin
           close;
           Connection:=Adoconn;
           // Beispiel "Select"
           SQL.Text:='SELECT * FROM '+Tabelle+' WHERE Anrede like '''+'Herr'+'''';
           open;
         
           // Beispiel "Insert"
           SQL.Text:='INSERT INTO '+Tabelle+' (Vorname,Name) VALUES (''Paul'',''Testmann'')';
           execute;

           // Beispiel "Update"
           SQL.Text:='UPDATE '+Tabelle+' SET Anrede = '''+'Herr'+''' WHERE Vorname LIKE '''+'Paul'+'''';
           execute;
         end;
      end;