1、添加ADODC1到窗体 2、准备好一个ACCESS新建的空数据库66.mdb Private Sub Form_Load() With Adodc1 .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ "C:/Documents and Settings/Administrator/" & _ "My Documents/66.mdb;Persist Security Info=False" .RecordSource = "select top 1 id from MSysAccessObjects" .Refresh With .Recordset.ActiveConnection .Execute = "CREATE TABLE [iTB1]([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)" End With End With End Sub