主题：请问SQL查询的问题

参考：http://www.foxtable.com/webhelp/scr/1943.htm

Dim ssw As String = "客户表"
Dim lst As List(Of String)
lst = Connections("彬阳数据").GetTableNames
For Each nm As String In lst
    If ssw = nm Then
        Output.Show(nm)
    Else
        Dim Builder As New ADOXBuilder("彬阳数据") '要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable("客户表") '创建表
        With tbl
            .AddColumn("客户编号" ,ADOXType.String, 50)
            .AddColumn("客户税号" ,ADOXType.String, 60)
            .AddColumn("客户名称" ,ADOXType.String, 120)
            .AddColumn("客户地址" ,ADOXType.String, 120)
            .AddColumn("备注" ,ADOXType.Text)
        End With
        Builder.AddTable(tbl, True, True) '增加表
        Builder.Close()
    End If

Dim ssw As String = "客户表"
Dim lst As List(Of String)
lst = Connections("彬阳数据").GetTableNames
If lst.Contains(ssw) = False Then
   
    Dim Builder As New ADOXBuilder("彬阳数据") '要指定数据源名称
    Dim tbl As ADOXTable
    Builder.Open()
    tbl = Builder.NewTable("客户表") '创建表
    With tbl
        .AddColumn("客户编号" ,ADOXType.String, 50)
        .AddColumn("客户税号" ,ADOXType.String, 60)
        .AddColumn("客户名称" ,ADOXType.String, 120)
        .AddColumn("客户地址" ,ADOXType.String, 120)
        .AddColumn("备注" ,ADOXType.Text)
    End With
    Builder.AddTable(tbl, True, True) '增加表
    Builder.Close()
End If