Dim sql:sql="CREATE TABLE [KS_Form_" & KS.G("TableName") & "] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_KS_Form_" & KS.G("TableName") & " PRIMARY KEY,"&_
"UserName nvarchar(100),"&_
"UserIP nvarchar(100),"&_
"AddDate datetime,"&_
"[Note] text,"&_
"[ChannelID] int default 0,"&_
"[InfoID] int default 0,"&_
"Status tinyint default 0)"
 Conn.Execute(sql)