insert into 语句语法错误，怪问题！！大家来看看。

[gflily]

For i = 0 To txtbzbh.ListCount - 1
ffstr = txtbzbh.List(i)
jjstr = "tmpbzsj" & i
Dim tablenew As New Table
With tablenew
.Name = jjstr
.columns.Append "bzbh", adVarWChar, 10
.columns.Append "field_name", adVarWChar, 14
.columns.Append "field_show", adVarWChar, 50
.columns.Append "bzmin", adDouble
.columns.Append "bzmax", adDouble
.columns.Append "unit", adVarWChar, 7
.columns.Append "note", adVarWChar, 2
.columns.Append "yylb", adVarWChar, 50
.columns.Append "gclb", adVarWChar, 50
End With
cat1.Tables.Append tablenew ''到这儿不出错。下面这一句就报错。
cnn1.Execute "insert into" & tablenew.Name & "select * from bzsj where bzbh ='" & ffstr & "'"
Next

说是insert into语句语法错，我不知错在那儿。请各位指正。

我如改成下面语句则不报错。
cnn1.Execute "insert into tmpsj select * from bzsj where bzbh ='" & ffstr & "'"

其中，tmpsj是已存在的表。

[saucer]

space is important, try

cnn1.Execute "insert into " & tablenew.Name & " select * from bzsj where bzbh ='" & ffstr & "'"

[网络咖啡]

GZ

[wzsswz]

Dim sql As String
Dim cnn1 As New ADODB.Connection
cnn1.Open cnnstr 'cnnstr为连接窜

'导入表结构及数据
sql = "select * into new_tableA from bzsj where bzbh ='" & ffstr & "'"
cnn1.Execute sql

'仅导入表结构
sql = "select * into new_tableB from bzsj where 1 = 2 "
cnn1.Execute sql

[palmkey]

"insert into" & tablenew.Name & "select * from bzsj where bzbh
应在into后,select前加一空格,以和变量表名字符串分开,否则三个字符串就串在一起了,正确如下:
"insert into " & tablenew.Name & " select * from bzsj where bzbh