adoconnection2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFileName(OpenDialog1.FileName)+'; Extended Properties=Excel 8.0;';
adoconnection2.GetTableNames(combobox1.Items);
adoquery1.SQL.Add('select * from [sheet1$]');
adoquery1.Open;
在ADO操作中如果一列有数值和字符。将只会显示其中一种。