vb下怎么打开word文件

vb下如何打开word文件
上传到服务器的是.doc的文件，得到的也是相对路径 ，如何读取word中的内容啊？求大家帮忙解决啊！！下面是我的代码，不过老是乱码。。。
function FSOFileRead(filename) 
    Dim objFSO,objCountFile,FiletempData 
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True,TristateFalse) 
      
    FSOFileRead = objCountFile.ReadAll 
    objCountFile.Close 
    Set objCountFile=Nothing 
    Set objFSO = Nothing 
 End Function
***************************************
还有一种是这样的，可是得不到数据
response.ContentType="application/x-msword"
  Const adTypeBinary=1
  Dim strFilePath
  strFilePath=Server.MapPath(txtUrl)
  Set objStream=Server.CreateObject("ADODB.Stream")
  objStream.Open()
  objStream.Type=adTypeBinary
  objStream.LoadFromFile(strFilePath)
  Response.BinaryWrite(objStream.Read())
  objStream.Close
  Set objStream=Nothing
------解决方案--------------------
看看这个：http://download.csdn.net/detail/veron_04/1627134