主题：[求助]增加表重启后有错误代码，而在命令窗口测试却没有

Dim tx As String  = e.Form.Controls("TextBox2").text
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()
    Syscmd.Project.Open(ProjectFile)
End If