主题：外部数据库增加表后不能显示

If tx = "" Then
    MessageBox.Show("表名称不能为空!","提示")
ElseIf PY.IsHanzi(left(tx,1)) = False Then   '第一个字符不是汉字时
    MessageBox.Show("表名称开头字符必须为汉字!","提示")
Else
    Dim Builder As New ADOXBuilder("统计")
    Dim tbl As ADOXTable
    Builder.Open()
    tbl = Builder.NewTable(tx) '创建表
    With tbl
        For Each r As Row In Tables("增加表")
            If r("类型") = "字符" Then
                .AddColumn(r("列名称") ,ADOXType.String, r("长度"))
            ElseIf r("类型") = "日期" Then
                .AddColumn(r("列名称") ,ADOXType.DateTime)
            ElseIf r("类型") = "数字" Then
                .AddColumn(r("列名称") ,ADOXType.Integer)
            ElseIf r("类型") = "备注" Then
                .AddColumn(r("列名称") ,ADOXType.Text)
            Else
                Exit For
            End If
        Next
    End With
    Builder.AddTable(tbl) '增加表
    Builder.Close()
    e.Form.close()
    e.Cancel = True   '不加这个重启动后会发生错误
    Syscmd.Project.Open(ProjectFile)
End If