WebBrowser & Word 问题

数据库test.mdb; ListView; WebBrowser.test.mdb一个表中有三列: ID ,Title,OLE数据我现在要实现的功能是，在窗体的ListView中显示Title,在WebBrowser中显示相关联的Ole数据（Ole数据先生成doc文件）。点击ListView中不同的Title，WebBrowser中相关联显示。问题出来了：Ole数据生成Temp.doc.
Private Sub ListView1_DblClick()On Error Resume NextDim i As Integer
i = ListView1.SelectedItem.IndexDim sqlAs StringDim temp As Longtemp = CLng(ListView1.SelectedItem.Text)  'ID
sql= "select * from Table1 where ID = " & tempIf DataRec1.State <> adStateClosed Then
   DataRec1.Close
End If   DataRec1.Open sql, DataConn, 1, 3If DataRec1.RecordCount <> 0 Then   If Dir(App.Path & "\Temp.doc") <> "" Then
 
        Kill App.Path & "\Temp.doc"      '实时错误 75,路经或文件访问出错。
        
    End If
    
    Set stmword = New ADODB.Stream    With stmword
        .mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write DataRec1!File
        .SaveToFile App.Path & "\Temp.doc"  
        .Close
    End With    Set stmword = Nothing            WebBrowser1.Navigate2 (App.Path + "\Temp.doc") 
            WebBrowser1.Visible = True
          
End If
 
End Sub请大家帮帮忙。或者有没有其它好的办法?或者不使用WebBrowser，有没有方便显示word的控件(不希望另开窗口)？