是你的 SQL 语句 有问题, 或者说是没写完整.
=================================================================
此示例使用两个文本字段和一个整型字段来创建新的表。SSN 字段是主键。Sub CreateTableX3()Dim dbs As Database' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")' 使用三字段和一个主键来创建表。
dbs.Execute "CREATE TABLE NewTable " _
& "(FirstName TEXT, LastName TEXT, " _
& "SSN INTEGER CONSTRAINT MyFieldConstraint " _
& "PRIMARY KEY);"dbs.CloseEnd Sub 

解决方案 »

  1.   

    你建表没有表名,难道电脑会自动给你加入不敷出字段吗?
      strsql="create table 表名 (name.text 字段类型)"
      

  2.   

    http://www.wzjcw.net/vbgood/taishan/index.html的迷你数据库浏览器源代码就有建表的功能
    引用ADOX使用下列代码:创建表范例 
    如下代码演示如何创建新表。Sub CreateTable()    Dim tbl As New Table
        Dim cat As New ADOX.Catalog'打开目录。
        ' 打开目录。
        cat.ActiveConnection = _ 
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=c:\Program Files\Microsoft Office\" & _
            "Office\Samples\Northwind.mdb;"    tbl.Name = "MyTable"
        tbl.Columns.Append "Column1", adInteger
        tbl.Columns.Append "Column2", adInteger
        tbl.Columns.Append "Column3", adVarWChar, 50
        cat.Tables.Append tblEnd Sub
      

  3.   

    就是说不能建立空表,是吗?
    如果我想建立一个ID字段,并他会自动编码的,应该怎样写呢,用SQL???谢谢!
      

  4.   

    sonicdater(发呆呆(我答问题*不吵架*因为我呆)) 
    的代码中有呀。SSN  字段是主键
    dbs.Execute  "CREATE  TABLE  NewTable  "  _
      &    "(FirstName  TEXT,  LastName  TEXT,  "  _
      &    "SSN  INTEGER  CONSTRAINT  MyFieldConstraint  "  _
      &    "PRIMARY  KEY);"