这个窗体比较简单，没用半小时就做完了，运行也没提示错误，但是文本款显示内容有问题：

  

  没有回车换行，代码检查了没有问题：txtnote.Text = "退卡卡号：" & mrc.Fields("cardno") & vbCrLf & "退款金额：" & mrc.Fields("cash") & _
                                    vbCrLf & "退款日期：" & Date & vbCrLf & "退款时间：" & Time & vbCrLf & "退款教师：" _
                                    & UserName

  于是搜了一下文本框属性，才发现必须把Multiline属性设置为true代码才能发挥作用。另附正确图片一张：