例:
　 ADOConnection1.ConnectionString:=
　　'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+access.Text+';'
　　+'Persist Security Info=False';
　//SQLStr2:='Select* Into Sheet2 In "'+Excel_Dialog.FileName+'" "Excel 8.0;" From ppp ';
　　SQLStr2:='Select* Into '+e.Text+' In "'+Excel.Text+'" "Excel 8.0;" From '+a.Text;
　　ADOConnection1.Execute(SQLStr2);
　　adoconnection1.Connected:=true;
　　showmessage('数据转换成功,谢谢你使用该软件!');