下边这段执行的时候无法实现。
 str:='select * from opendatasource(''microsoft.jet.oledb.4.0'',''data source=''c:\0011.xls'';user id=admin;password=;extened properties=excel 5.0'')...[sheet1$]';
  ADOConnection1.ConnectionString := str;
  ADOQuery1.close;
  ADOQuery1.sql.clear;
  ADOQuery1.sql.add(str);
  ADOQuery1.active:=true;
  ADOQuery1.open;