For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
改成
For Each dr As DataRow In DataTables("授权表").Select("',' + 用户名 + ',' like '%," & User.Name & ",%'" )