主题：老师帮助看一下为啥创建表报错？

If Connections("a").GetTableNames.contains("客户档案") Then
    msgbox(1)
Else
    Dim Builder As New ADOXBuilder("a") '要指定数据源名称
    Dim tbl As ADOXTable
    Builder.Open()
    tbl = Builder.NewTable("客户档案") '创建表
    With tbl
        '.AddColumn("日期" ,ADOXType.DateTime)
        .AddColumn("客户名称" ,ADOXType.String, 30)
        .AddColumn("联系人" ,ADOXType.String, 10)
        .AddColumn("电话" ,ADOXType.String,20)
        .AddColumn("qq" ,ADOXType.String,16)
        .AddColumn("客户来源" ,ADOXType.String, 30)
        .AddColumn("业务单号" ,ADOXType.String,16)
        .AddColumn("业务单子编号" ,ADOXType.String,16)
    End With
    Builder.AddTable(tbl, True, True) '增加表
    Builder.Close()
    msgbox("不能直接load表格,如果需要,请用OuterTableBuilder")
End If

http://www.foxtable.com/webhelp/scr/1279.htm