如何在使用ADO创建Access数据库时，同时定义“标题”，请各位大侠帮忙，谢谢

npwz0427

如何在以下函数中添加代码，使得在追加字段的同时，添加“标题”名称，谢谢！

1. Sub CreateAccessTable()  '创建数据库表
   
2.     Dim mycat As New ADOX.Catalog
   
3.     Dim myTable As New ADOX.Table
   
4.     If Dir(ThisWorkbook.Path & "\database.accdb") = "" Then
   
5.         mycat.Create "Provider=Microsoft.ace.OLEDB.12.0;Jet OLEDB:Engine Type=6;" & _
   
6.             "Data Source=" & ThisWorkbook.Path & "\database.accdb" '创建数据库
   
7.     End If
   
8.     mycat.ActiveConnection = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & _
   
9.         ThisWorkbook.Path & "\database.accdb" '激活连接
   
10.     myTable.Name = "测试表a1"
    
11.     mycat.Tables.Append myTable   '追加表
    
12.     With myTable.Columns '追加字段
    
13.         .Append "编号", adInteger
    
14.         .Append "姓名", adVarWChar, 30
    
15.         .Append "出生日期", adDate
    
16.         .Append "年龄", adInteger
    
17.         .Append "婚姻状况", adBoolean
    
18.     End With
    
19.     myTable.Keys.Append "PrimaryKey", adKeyPrimary, "编号" '把“编号”字段设为主键
    
20.    
    
21.     myTable.Columns("姓名").Properties("Jet OLEDB:Allow Zero Length") = True '允许空
    
22. 
    
23.     mycat.Tables.Refresh '刷新表
    
24.     Set myTable = Nothing
    
25.     Set mycat.ActiveConnection = Nothing
    
26. End Sub

复制代码