rs.fields(0) 这个值没有被赋值给变量或者单元格 例如 X=rs.fields(0)或者 sheet1.[a1] = rs.fields(0)
你的这个自定义SUB的名称不能使用 MsgBox 你或者在 MsgBox 后面加个 数字1 ，这样 MsgBox1（）
虽然WPS和MS Office的VBA不一样，但是在这些基本函数上，是一样的。建议你更新WPS版本试试。另外，WPS个人版是不带VBA的，是否使用的专业版？更多WPS办公软件教程，请访问：http://bbs.wps.cn 或者http://e.weibo.com/wpswfw