如何从记录集中的数据追加到表中

Question

这样：
  把这句：
'如下语句有BUG
   IEs.Execute "insert into ieod01d14 select * from tempRecordset"  换成：
  dim strsql as string
  dim i as integer 
  do until temprecordset.eof
     strsql = strsql & "'" & re(i) & "'," '这里具体要看数据类型。字符要夹两个单括号数字的不用
     i=i+1
  loop
  i = len(strsql)
  strsql = mid(strsql,1,i-1)
  IEs.Execute "insert into ieod01d14 values (" & strsql & ")"