小吳 VBQA 程式設計討論

在前次987轉成玖佰捌拾柒一問中承蒙解答。
但
Set rs = conn.Execute("select * , space(80) as newfield from riverent where stn = '" & Combo1.List(i) & "' order by stn, no_for_manage")
　　　　rs.MoveFirst
　　　　
　　　　Do Until rs.EOF
　　　　　　Debug.Print rs("newfield")
　　　　　　rs("newfield") = "一二三 " 'ConvertC(rs"tunit"))
　　　　　　'Debug.Print ConvertC(rs("tunit")), rs("tunit")
　　　　　　rs.MoveNext
　　　　Loop
卻rs("newfield") = "一二三 "發生問題，該如何解決呢？