将XLS导入到到ACCESS后,如何再修改导入的字段名??请大家看看吧

大家好,我初学DELPHI,今天碰到一个问题,就是将某个XLS文档导入到ACCESS表中后,如何再修改它的字段名,因为XLS中的字段是中文的,我想把它导入到ACCESS中的表后,再改成英文的字段.
例:
员工档案 XLS文档----------导入>ACCESS zzinfo表
编号---------------------------->改成 num
姓名---------------------------->改成 name
入厂日期------------------------->改成 rcdate
.......................................
以下我的代码,一运行就出错,提示list index of band(0),然后窗体中相关的DBedit组件和DBGIRD组件会提示找不到'num','jg','rcdate'等英文字段名
adoquery1.Close;
adoconnection1.Connected:=false;
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.exename)+'rs.mdb;'
+'Persist Security Info=False';//将原表删除,再导入XLS文档adoconnection1.Execute('drop table zzinfo');
ADOConnection1.Execute('select * into zzinfo from [excel 8.0;database='+fname+'].[sheet1$]');
adoconnection1.Connected:=true;adoquery1.DisableControls;adoquery1.SQL.Clear;   //下面这句SQL语句是不是没有作用,不能起到改字段名的作用?
adoquery1.SQL.Add('select 编号 AS NUM,姓名 AS NAME,部门 AS BMNAME,班组 AS BZNAME,岗位 AS GWNAME,入厂日期 AS RCDATE,籍贯 AS JG,备注 AS BZ from zzinfo WHERE :A<>:B');
adoquery1.Parameters.ParamByName('A').Value :=adoquery1.Fields[0].Name;
adoquery1.Parameters.ParamByName('B').value:='num'; 
adoquery1.execsql; //换成open也试过了
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from zzinfo');
adoquery1.Open;
adoquery1.EnableControls;
我分不是很多,是新人请大家见谅帮帮忙吧.