VBAで、ひらがなをカタカナに変換する

VBAで、ひらがなをカタカナに変換したり、半角にしたり、大文字にしたりするVBAのサンプルです。

Function KANA()
Dim CN As ADODB.Connection
Dim RSA As ADODB.Recordset
Dim SQL As String
Set CN = CurrentProject.Connection
Set RSA = New ADODB.Recordset
SQL = "SELECT [主キー],[カナフィールド] FROM [テーブル名]"
RSA.Open SQL, CN
Do Until RSA.EOF
'vbUpperCase　　1　　文字列を大文字に変換します。
'vbLowerCase　　2　　文字列を小文字に変換します。
'vbProperCase　　3　　文字列の各単語の先頭の文字を大文字に変換します。
'vbWide　　4　　文字列内の半角文字 (１バイト) を全角文字 (２ バイト) に変換します。
'vbNarrow　　8　　文字列内の全角文字 (２バイト) を半角文字 (１バイト) に変換します。
'vbKatakana　　16　　文字列内のひらがなをカタカナに変換します。
'vbHiragana　　32　　文字列内のカタカナをひらがなに変換します。
'vbUnicode　　64　　システムの既定のコード ページを使って文字列を Unicode に変換します。
'vbFromUnicode　　128　　文字列を Unicode からシステムの既定のコード ページに変換します。
SQL = "UPDATE [テーブル名] SET [カナフィールド]='"
SQL = SQL & StrConv(RSA![カナフィールド], vbKatakana)
SQL = SQL & "' WHERE [主キー]=" & RSA![主キー]

CN.Execute SQL
RSA.MoveNext
Loop
CN.Close
Set CN = Nothing
End Function