关于excel导入access的问题"创建文件失败",急!在线等!谢谢

Question

代码:
excelpath:=edit1.Text;
sqltmp:='INSERT INTO table +
        ' SELECT'+
        ' *'+
        ' FROM [excel 8.0;database='+excelpath+'].[sheet1$]';
close;
sql.Clear;
sql.Text:=sqltmp;
Parameters.Clear;
ParamCheck:=false;
SQL.Text:=sqltmp;
ExecSQL;问题:运行程序后，第一次执行这种方法会出错，提示“创建文件失败”，此后执行就不会出错也得到预期的结果。请问这是什么原因,怎么解决?谢谢了先!