dim conn,con,str,rs,com

con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Intial Catalog=test;Data Source=XCGDQ02\WINCC;"    'test为数据库名称，XCGDQ02为电脑名称

str="create table [table1[([time1] datatime)" 'table1为需要创建的表名称

set conn=Createobject("ADODB.Connection")

conn.ConnectionString=con

conn.CursorLocation=3

conn.Open

set rs=Createobject("ADODB.Recordset")

set com=Createobject("ADODB.Command")

with com

.CommandType=1

.ActiveConnection=conn

.CommandText=str

end with

msgbox "开始建表"

set rs=com.Execute

msgbox "创建成功"

set rs=nothing

set com=nothing

conn.Close

脚本如上所示，运行之后能显示  “开始建表”，但无法显示“建表成功”，所以怀疑是sql建表语句有问题，希望大佬帮忙解答一下，谢谢