请问如何用VB往SQL数据库里存取WORD文挡？

存我已经做好了
    Set cnn = New ADODB.Connection
    cnn.Open constr
    Set rs = New ADODB.Recordset
    Dim rsstr1 As ADODB.Stream
    Set rsstr1 = New ADODB.Stream
    Dim rsstr2 As ADODB.Stream
    Set rsstr2 = New ADODB.Stream
    
    With rs
        .ActiveConnection = cnn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open "select * from image"
    End With
    rsstr1.Type = adTypeBinary
    rsstr1.Open
    rsstr1.LoadFromFile Text10.Text
    
    rsstr2.Type = adTypeBinary
    rsstr2.Open
    rsstr2.LoadFromFile "d:\yf.doc"
    
    rs.AddNew
    rs.Fields("name") = "1001"
    rs.Fields("Word1").Value = rsstr1.Read
    rs.Fields("Word2").Value = rsstr2.Read
    rs.Update
    
但是我现在不知道怎么取了？
要先启动一个WORD吗？
没有思路！
请大家支着！
最好给出代码！
谢谢