请各位高手帮我看看这段代码？

Question

Private Sub Command1_Click()
Dim cnAccess As New ADODB.Connection, rsAccess As New ADODB.Recordset
    '打开Access数据库的连接，具体的需要改一下
    cnAccess.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\sj.mdb;Jet OLEDB:Database Password="
    rsAccess.CursorLocation = adUseClient
    strExcelPathName = "D:\visual basic 6\数据导出\ss.xls"
    ExcleTableName = "Sheet1$"
    cnAccess.Execute "Insert Into [EXCEL 5.0;DATABASE=" & strExcelPathName & "].[Sheet1$] Select * From xm"
End Sub
为什么我从ACCESS数据库中导到EXCEL表中，会出现提示（Insert Into语句包含下列未知的字段名：’id‘）错误。而我在EXCLE中把字段名建好就能把数据导出。这是什么原因，怎么改才对啊。
请各位高手帮我解答？谢谢！！！！！！

Answer 1

Insert Into 语句要求表必须存在，而且表里的列数目不能少于插入的值的数目

Answer 2

用SELECT INTO取代INSERT INTO

Answer 3

插入语句是这样的
 insert  into [表明]（[字段名]（类型），....）LZ你试一下

Answer 4

好像一般ID为自动编号时就会出现这种问题，你把
select * 
改成具体的字段名。
如果确实要ID的话那就只能另想办法了。

Answer 5

http://www.vb-helper.com/howto_access_to_excel.html