excle错误

Question

Dim cnn1 As ADODB.ConnectionSet cnn1 = New ADODB.Connection
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database\product.mdb;Persist Security Info=False"cnn1.Execute "insert into product select * from [Excel 8.0;HDR=YES;DATABASE=D:\database\product.xls].[Sheet1$] where id1 not in(select id1 from product)"错误提示：
标准表达式中的数据类型不匹配

Answer 1

cnn1.Execute "insert into product select * from [Sheet1$] In ""D:\database\product.xls"" ""Excel 8.0;"" where id1 not in(select id1 from product)"