用Ucase函数即可

在更新数据的时候，总有一个字段或者变量吧？
就把这个变量用ucase(变量/字段)来代替。
===================
描述
返回字符串的大写形式。
语法
UCase(string)
string 参数是任意有效的字符串表达式。如果 string 参数中包含 Null，则返回 Null。

说明
只有小写字母被转换成大写字母；所有大写字母和非字母字符均保持不变。
下面的示例利用 UCase 函数返回字符串的大写形式:

Dim MyWord
MyWord = UCase("Hello World") ' 返回"HELLO WORLD"。