主题：关于转大写的函数求助

Dim dr As DataRow
dr = DataTables("Menu_List").Find("Upper(Trim([Pope_Name])) ='" & "修改密码".Trim().ToUpper() & "'")
If dr IsNot Nothing Then '如果找到的话
    Messagebox.Show("任务名称:" & dr("Pope_Name"))
End If

dr = DataTables("Menu_List").Find("Trim([Pope_Name]) ='" & "修改密码".Trim().ToUpper() & "'") '这条语句能执行正常

'以下这些语句都不能正常执行

dr = DataTables("Menu_List").Find("Upper(Trim([Pope_Name])) ='" & "修改密码".Trim().ToUpper() & "'")

dr = DataTables("Menu_List").Find("ToUpper(Trim([Pope_Name])) ='" & "修改密码".Trim().ToUpper() & "'")

dr = DataTables("Menu_List").Find("[Pope_Name].Trim().ToUpper() ='" & "修改密码".Trim().ToUpper() & "'")