权限控制ToolStripMenuItem显示无效

qxmc是从数据库获得的字段名，字段名+ToolStripMenuItem 为menustrip下的ToolStripMenuItem的Name，但是获yhqx是boolean值，编写如下来控制是否显示但是运行后并没有实现，求大神帮忙看下问题出在哪？
Dim uuu As String
For i = 1 To JCXX.Columns.Count - 4
qxmc(i) = JCXX.Columns(i + 3).ColumnName
yhqx(i) = JCXX.Rows(0).Item(qxmc(i))
uuu = qxmc(i) & "ToolStripMenuItem"
Dim kjmc As New Control
kjmc.Name = uuu.ToString
kjmc.Visible = yhqx(i)
Next