SELECT * FROM EXCEL DOC

I have found this http://delphi.about.com/od/database/l/aa090903a.htm to see how I should connect to a excel doc. I have followed the guide, but when I try to do a SELECT as the guide says I should do. It dosen't work. My first sheet is "Sheet1" and I have the data as the guide.

The select I should use is:
SELECT * FROM [Sheet1$]

But it raise a exception in the FetchData procedure.

Excel 2007 is the format of my document.

procedure TFrmMain.ConnectToExcel;
var strConn :  widestring;
begin
  strConn:='Provider=Microsoft.ACE.OLEDB.12.0;' +
          'Data Source=' + Edit2.Text + ';' +
          'Extended Properties="Excel 12.0 Xml;HDR=YES";Persist Security Info=False';

  AdoConnection1.Connected:=False;
  AdoConnection1.ConnectionString:=strConn;
  try
    AdoConnection1.Open;
    AdoConnection1.GetTableNames(ComboBox1.Items,True);
  except
    ShowMessage('Unable to connect to Excel, make sure the workbook ' + Edit2.Text + ' exist!');
    raise;
  end;
end;(*ConnectToExcel*)

procedure TFrmMain.FetchData;
begin
  StatusBar1.SimpleText:='';

  ConnectToExcel;

  AdoQuery1.Close;
  AdoQuery1.SQL.Text:=Edit3.Text;
  try
    AdoQuery1.Open;
  except
    ShowMessage('Unable to read data from Excel, make sure the query ' + Edit3.Text + ' is meaningful!');
    raise;
  end;
end;

procedure TFrmMain.Button1Click(Sender: TObject);
begin
  FetchData;
end;

Select allOpen in new window