vb数据库 连接错误 “要求对象”

Question

   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这一句时，总说“ 要求对象”，这是什么错误，这么改？

Answer 1

加上" & App.Path & 能运行了，又说tmptable 已存在，

Answer 2

出错那句前面加一句
 Conn2.Execute "drop tabel tmptable"

Answer 3

Conn2.Execute "drop tabel tmptable" 语法错误

Answer 4

改为
Conn2.Execute "delete from tmptable"

Answer 5

还是不能删掉，总说  tmptable已存在

Answer 6

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 tmptable
Conn2.Execute sql

Answer 7

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