vba 连接mysql case when 输出中文乱码

mysqlvba

strsql = "SELECT ui.user_name ,bo.id, " & _
"CASE WHEN p_id =77 THEN '名校贷' WHEN p_id =83 THEN '名校贷应急包' else '' END ," & _
"CASE WHEN bo_is_success=0 THEN '待处理' WHEN bo_is_success=1 THEN '成功' WHEN bo_is_success=2 THEN '拒绝' WHEN bo_is_success=3 THEN '流标' else'' END，“&_
............
case when then 后面的中文输出在recordset中是乱码
流?
流?
流?
流?
拒?
流?
流?

请问如何解决，已设置set names GBK