生成Access数据表代码有错误

sql="CREATE TABLE table1("
for i=0 to rs.Fields.Count-2
   sql=sql & rs(i).Name&" CHAR(100),"
Next
sql=sql & rs(rs.Fields.Count-1).Name&" CHAR(100))"
conn1.Execute sql

总是提示这段代码未结束，请问有什么问题么

你要打印出 sql看看结果