用VB＋WORD模版＋数据库来制作格式合同的方法[6]

            end if

        next i

        adors.close

        wordtemps.visible = true '显示word窗口

    end if

end sub