你TextBox里面的值是怎样的?
Dim str As String = "第二列,第三列"
Dim ary() As String = str.split(",")For Each c As Col In Tables("表A").cols If array.indexOf(ary, c.name) >= 0 Then c.visible = True Else c.visible = False End IfNext