主题：关于列标题的问题

在帮助文件里有怎样设置列标题的代码，我希望根据登录的不同用户组来设置多个列的标题，代码如下：

With DataTables("产品信息")
    Dim namesss() As String ={"电雕在制支数","机加在制支数","镀铜在制支数","车研在制支数","镀铬在制支数","料库在制支数","打样在制支数"}
    If _UserGroup <> "生产部" Then
        .DataCols(" & namesss & ").Caption = "支数"
    End If
End With

可是报错提示：“产品信息”不存在" & namesss & "的列，这是怎么回事？

谢谢lin_hailun了，就是要这个效果，这种情况非要遍历一下才行？