vb 使用 ADB 创建数据库

Question

我使用如下代码创建数据库成功，"Test02"字段是 Boolean 类型的，创建后默认以文本框显示，我想使用复选框显示，不知道如何实现。
想请问哪位大侠能帮忙，我不胜感激！！！！    Dim Cat As New ADOX.Catalog
    Dim Tbl As New ADOX.Table
    
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
        "\Test.mdb;Jet OLEDB:Database Password=Love In 11 For QQLA;"
    With Tbl '创建字段并将它们追加到新的 Table 对象中
        
        .Name = "Test"
        Set .ParentCatalog = Cat
        
       .Columns.Append "ID", adInteger                     '创建 ID 列
        .Columns("ID").Properties("AutoIncrement") = True   '自动编号，递加列
        
        .Columns.Append "Test01", adVarWChar, 12
       .Columns.Append "Test02", adBoolean
       
    End With
    
    Cat.Tables.Append Tbl
    
    Set Tbl = Nothing
    Set Cat = Nothing

Answer 1

不好意思，标题写错了，是vb使用ado创建数据库