主题：word报表

这段代码不应该报错，报什么错？

Dim tm As String = ProjectPath & "Attachments\入院病历.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\入院病历.doc" '指定目标文件
Dim wrt As New WordReport(Tables("住院记录"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.quit