ado的这些代码怎么这么慢呀？？？

Question

Dim comm As New ADODB.Command
    Dim cn As New ADODB.Connection
    cn.ConnectionString = cntstrtemp
    cn.Open
    comm.ActiveConnection = cn
    comm.CommandText = "delete * from 营业明细"
    comm.Execute
    comm.CommandText = "insert into 营业明细 select * from 营业明细1"
    comm.Execute
    cn.Close上面 代码的意思是首先删除“营业明细”内的内容，然后将“营业明细1”中的所有记录导入“营业明细”,数据库为access数据库。每次执行都要四五秒钟才能完成。但是表中的记录不多，一般不超过100条。大多数情况下只有几条记录。谁能给出更好的解决办法？

Answer 1

comm.CommandText = "insert into 营业明细 select * from 营业明细1"改成：comm.CommandText = "insert into 营业明细 from 营业明细1"

Answer 2

楼上的好象不行，显示错误：insert into 附近有错误。

Answer 3

Dim cn As ADODB.Connection
    Set cn = New  ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yourDb.mdb"
    cn.Open
    cn.Execute "delete from 营业明细"
    cn.Execute "insert into 营业明细 select * from 营业明细1"
    cn.Close