请帮忙看一下程序?

                            
if      OpenDialog1.Execute   then   
    begin  
    customerdata.ADOQuery1.Close;  
    customerdata.ADOQuery1.SQL.Clear;  
  customerdata.ADOConnection1.Provider:='Microsoft.Jet.OLEDB.4.0;Data   Source='+extractfilepath(opendialog1.filename)+extractfilename(opendialog1.FileName)+';Extended   Properties=Excel   8.0;Persist   Security   Info=False';  
  customerdata.ADOQuery1.Sql.add('Select   *   from   [Sheet1$]');  
  customerdata.ADOQuery1.Open;  
    customerdata.ADOQuery1.First;  
    customerdata.Table1.Active:=true;  
        while   not   customerdata.ADOQuery1.Eof     do  
          begin  
            customerdata.Table1.Insert;  
              customerdata.Table1.FieldByName('name_yp').asstring:=customerdata.ADOQuery1.fieldbyname('name').asstring;  
              customerdata.ADOQuery1.Next;  
              customerdata.Table1.Append;  
          end;  
   
  table1是一张空表,   想把adoquery1中的记录添加到table1中,但提示字段   'name_yp'不存在?   错误在哪?

查看回复