我准备用SQL语句，给一个已建好的数据库里新建一个表，语句是：
cnn.Execute "creat table [doorctrl] s ([装置][nvarchar] null primary key, [装置位置][nvarchar] null,[类型][nvarchar] null,[描述][nvarchar] null,[区域][nvarchar] null,[位置][nvarchar] null,);"
但是最后提示是：
无效的SQL语句
请问是哪里的错误，谢谢

cnn.Execute "creat table [doorctrl] s ([装置][nvarchar] not null primary key,
[装置位置][nvarchar] null,
[类型][nvarchar] null,
[描述][nvarchar] null,
[区域][nvarchar] null,
[位置][nvarchar] null)"

Private Sub Command1_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer

Dim constring As String
Dim sql As String
constring = "driver={mysql odbc 3.51 driver};data source=localhost;database=tennis;uid=root;pwd=admin"

sql = "create table t(id int not null auto_increment primary key," _
& "amount varchar(200) not null);"

con.Open constring

con.Execute sql

sql = "insert into t(amount) values('100')"
con.Execute sql

rs.CursorLocation = adUseClient
rs.Open "select * from t", con, adOpenKeyset, adLockReadOnly, adCmdText
For i = 0 To rs.RecordCount - 1
Print rs.Fields(0) & " " & rs.Fields(1)
rs.MoveNext
Next
rs.Close
con.Close

Set rs = Nothing
Set con = Nothing
End Sub

测试成功.

还是没有弄清楚,希望帮忙指点一下.楼上的程序不是很明白,我只需要建立一个新表,暂不需要其他的操作