修改代码
For Each dr As DataRow In DataTables("菜单权限表").Select("用户名 like '%" & _username & "%' and 菜单名 is not null" )
或者
For Each dr As DataRow In DataTables("菜单权限表").Select("',' + 用户名 + ',' like '%," & _username & ",%' and 菜单名 is not null" )