ADODC控件为ACCESS数据库建立新表的一种方法

1、添加ADODC到窗体
2、ACESS数据库中至少有一张表存在。
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"C:\Documents and Settings\Administrator\" & _
"My Documents\11.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = "select top 1 * from tb11"
Adodc1.Refresh

With Adodc1.Recordset.ActiveConnection
.Execute = "CREATE TABLE [NT_channel_product3]([Id] counter CONSTRAINT id PRIMARY KEY," & _
"[ChID] long NOT NULL ,title text(100) NOT NULL ,[ClassID] long NOT NULL ," & _
"[SpecialID] text (200) NULL ,[TitleColor] text (10) NULL ," & _
"[TitleITF] byte NULL ,[TitleBTF] byte NULL ,[PicURL] text (200) NULL ," & _
"[Content] memo NULL ,[NaviContent] text (200) NULL ," & _
"[ContentProperty] text (9) NULL ,[Author] text (100) NULL ," & _
"[EdITor] text (50) NULL ,[Souce] text (100) NULL ,[OrderID] byte NOT NULL ," & _
"[Tags] text (100) NULL ,[Templet] text (200) NULL ," & _
"[SavePath] text (200) NULL ,[FileName] text (100) NULL ," & _
"[isDelPoint] byte NOT NULL ,[Gpoint] long NULL ,[iPoint] long NULL ," & _
"[GroupNumber] memo NULL ,[Metakeywords] text (200) NULL ," & _
"[Metadesc] text (200) NULL ,[Click] long NULL ," & _
"[CreatTime] datetime NULL ,[isHTML] byte NOT NULL ," & _
"[isConstr] byte NOT NULL ,[ConstrTF] byte NOT NULL)"
End With
End Sub