关于vb操作word的问题

要帮公司用vb做一个利用数据库里的数据打印报表的程序，这个报表是有WORD模版的，我想用最简便的方法生成并打印这些报表，我采用的方法是用vb操作word 把数据库里的值加到WORD的书签里去，最后保存打印，用下面这个程序实现，只是好像生成的文档名是一个默认的，那我怎么生成一个使用我预先定义的文件名的文档，并默认的存到某个路径下呢？还有就是这种方法如果使用在客户端去访问web数据库来生成又没有什么问题呢？
Call openconn
sqlstr = "select * from test_report where report_number='001/2006'"
Call adors(sqlstr)
    WordTemps.Documents.Add App.Path + "\1.doc", False
    WordTemps.Selection.GoTo wdGoToBook, , , "supplier_name"'书签名"supplier_name"    WordTemps.Selection.TypeText rs.Fields("supplier_name")
    WordTemps.Visible = True
    Call closeconn