[求助]vb创建表出现语法错误

Question

[求助]vb创建表出现语法错误Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim sql4 As String
Dim sql5 As Stringsql1 = "create table temp select * from data where 1<>1"
'建立一个临时表并使其字段与原表字段相同
sql2 = "insert into temp select distinct * from data "
'从表中查找出无重复的记录并写入到临时表中
sql3 = "delete from data "
'清空原表中记录
sql4 = "insert into data select * from temp "
'将临时表中记录拷贝到原表中
sql5 = "drop table temp "
'删除临时表
Dim cnn As New ADODB.Connection
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\mydata.mdb;persist security info=false"
cnn.Execute sql1
cnn.Execute sql2
cnn.Execute sql3
cnn.Execute sql4
cnn.Execute sql5
cnn.Close运行到cnn.Execute sql1时提示create table 语法错误，是什么问题，怎么解决，请高手请教

Answer 1

sql1 ="select * into  temp  from data where 1=2"