vb数据库 连接异常 “要求对象”

vb数据库 连接错误 “要求对象”
Dim Conn2 As ADODB.Connection
  Set Conn2 = New ADODB.Connection
  Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nongduku.mdb;Persist Security info=False"
  Conn2.Execute "select * into tmptable from [excel 8.0;database=" & nongduku.xls & "].[sheet1$]"
   
  Conn2.Execute "insert into nongdubiao(日期,时间,浓度) select日期,时间,浓度 from tmptable"
  Conn2.Execute "drop tabel tmptable"
  Set Conn2 = nonthing
   
本来是照书上抄的，只改了一下数据库名，运行到 conn2.execute" select。。。这一句时，总说“ 要求对象”，这是什么错误，这么改？

[解决办法]
出错那句前面加一句
 Conn2.Execute "drop tabel tmptable"

[解决办法]
改为
Conn2.Execute "delete from tmptable"
[解决办法]

VB code

dim sql as string sql = "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tmptable]') and    OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table tmptableConn2.Execute sql
[解决办法]
mdb数据库不能用drop,所以会报错,每次把表清空即可
Dim Conn2 As ADODB.Connection
Set Conn2 = New ADODB.Connection
Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Nongduku.mdb;Persist Security info=False"
Conn2.Execute "insert into tmptable (日期,时间,浓度) select s1,s2,s3 from [excel 8.0;database=" & App.Path & nongduku.xls & "].[sheet1$]"

Conn2.Execute "insert into nongdubiao(日期,时间,浓度) select日期,时间,浓度 from tmptable"
Conn2.Execute "delete from tmptable"
Set Conn2 = nonthing