dim SQL as String
dim rs As Recordset
SQL = " SELECT STRCONV(フィールド名,8) FROM テーブル名 "
又は、
SQL = " SELECT STRCONV(フィールド名,8) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
STRCONV の引数に8を指定することで文字列を半角に変換することができます。
半角にできるのは、全角カタカナ・全角数字になります。
「宮崎産マンゴーは20000円」を変換すると「宮崎産マンゴーは20000円」になります。