用delphi 控制excel 的导入怎么不好使(急)

我的数据库里的一个表abc(aa,bb,cc);
我用delphi 控制打开c;\a.xsl 文件
想把他的 excel 的数据用sql 语句导到数据库里面,怎么
不好使,执行后abc表还是空表,吗的,气人
procedure TForm1.Button3Click(Sender: TObject);
var s:string;
var i,j:integer;
var
  ExcelApplication1: TExcelApplication;
  ExcelWorksheet1: TExcelWorksheet;
  ExcelWorkbook1: TExcelWorkbook;
begin
  try
    ExcelApplication1 := TExcelApplication.Create(Application);
    ExcelWorksheet1 := TExcelWorksheet.Create(Application);
    ExcelWorkbook1 := TExcelWorkbook.Create(Application);
    ExcelApplication1.Connect;
  except
    Application.Messagebox('Excel 没有安装!','Hello', MB_ICONERROR + mb_Ok);
    Abort;
  end;
  try
    ExcelApplication1.Workbooks.Add(EmptyParam, 0);
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as  _worksheet);
                //打开的excel 文件
    ExcelApplication1.Workbooks.Open('c:\a.xls',
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
    //ExcelApplication1.Visible[0]:=true;
    for i:=0 to ExcelWorksheet1.Cells.Row do
       begin
          //SQL 语句为 Insert into abc(aa,bb,cc) values(:a,:b,:c)
         for  j:=0 to ExcelWorksheet1.Cells.Column do
         begin
           ADOQuery1.Parameters[j].Value:=ExcelWorksheet1.Cells.Item [i,j];
         end;
         ADOQuery1.ExecSQL;
       end;
    except
       ShowMessage('出错误拉');
    end;
  ExcelWorksheet1.Disconnect;
  ExcelWorkbook1.Disconnect;
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;
end;end.