[5分]WORD导出时的VBA代码问题

老师好！

我在做一个WORD导出时，程序一直出错，后来用排除法就是下面语句有问题（若删后程序就通过了），但花了半天时间也没找出来原因。对应的WORD模板如附件所示，不知道到底是哪里出了问题。肯请老师指点一二，非常感谢！！！(订单行是文本型数据）

DCount("*", "订单工序卡", "订单行 = '" & Me.订单行 & "'"), 0)

    '如果订单明细记录大于0才导出明细

    If lngI > 0 Then

        Set objTable = objDoc.Tables(2)

        For I = 1 To lngI - 1

            Set rowNew = objTable.Rows.add(beforeRow:=objTable.Rows(2))

        Next

        '向Word中对应表格单元格写入数据

        I = 2

        With objTable

            Set rst = CurrentProject.Connection.Execute("select 工序,工序内容 from 订单工序卡 where 订单行 ='" & Me.订单行 & "'")

            Do While Not rst.EOF

                .Cell(I, 1).Range = rst("工序")

                .Cell(I, 2).Range = rst("工序内容")

                I = I + 1

            rst.MoveNext

            Loop

            rst.Close

            Set rst = Nothing

        End With

    End If