dim SQL as String
dim rs As Recordset
SQL = " SELECT STRCONV(フィールド名,16) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,16) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
STRCONV の引数に16を指定することでひらがなをカタカナに変換することができます。
「なりたいのはスーパー仕事人だ」を変換すると「ナリタイノハスーパー仕事人ダ」になります。