主题：谁来开发一个直接建表的程序

Dim say As String  =  Tables("Systablename").Current("FSSXTtable")
If say IsNot Nothing Then
    Dim r As Row = Tables("FS_XTJB").addnew()
    r("FSSTableName")= say
   
    If DataTables.Contains(say) = False Then
       
        Dim  Builder As  New  ADOXBuilder("HCCL")  '要指定数据源名称
        Dim tbl  As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable(say) '创建表
        With tbl
            .AddColumn("FSS1" ,ADOXType.String, 20)
            .AddColumn("FSS2" ,ADOXType.String, 20)
        End With
       
        Builder.AddTable(tbl, True, True) '增加表
        Builder.Close()
    End If
End If

我加上了红色部份判断，测试并不起作用，错在哪里了