导入一条EXCEL记录出错

var
  SQLStr,gypath,mdbpath,xlspath,bmmdb,bmxls:string;
begin
  gypath:= 'D:\Program Files\Borland\Delphi7\Projects\我的转换E2A\';
  mdbpath:= gypath + 'test.mdb';
  xlspath:= gypath + '物资清单.XLS';
  bmmdb:= '物资清单';
  bmxls:= bmmdb;
  adoconnection1.Connected:=false;
  ADOConnection1.ConnectionString:=
  'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ mdbpath +';'
  +'Persist Security Info=False';
  SQLStr:='select top 1 * into '+ bmmdb +' FROM [excel 8.0;database='
  + xlspath +'].['+ bmxls +'$] where not id in (select top 5 id FROM [excel 8.0;database= '
  + xlspath +'].['+ bmxls +'$]';
  ADOConnection1.Execute(SQLStr);
  adoconnection1.Connected:=true;
  showmessage('数据转换成功!');我想将EXCEL表中的一条记录导入数据库，但运行上述代码出错。为什么？请高手帮我看看！