Guardar documentos del Word en sql server

Trabajando con Access, guardaba y recuperaba documentos
creados con el Word en un campo memo con estas dos
funciones

Function putmemo(cFile As String, oRc As Recordset, cCampo
As String) As Boolean
Dim n As Integer
Dim nCanal As Integer
Dim cInter As String
Dim nMax As Long
Dim nLeer As Long

nMax = FileLen(cFile)
nCanal = FreeFile
Open cFile For Binary Access Read As nCanal

Do While nMax > 0
nLeer = IIf(nMax > 50000, 50000, nMax)
nMax = nMax - nLeer
cInter = Space(nLeer)
Get nCanal, , cInter
oRc(cCampo).AppendChunk cInter
Loop
Close nCanal
putmemo = True

End Function

Function getmemo(cFile As String, oRc As Recordset, cCampo
As String)
Dim nCanal As Integer
Dim cInter As String
Dim nMax As Long
Dim nLeer As Long
Dim n As Long

If IsNull(oRc(cCampo)) Then
nMax = 0
Else
nMax = Len("" & oRc(cCampo))
End If

n = 0
nCanal = FreeFile
Open cFile For Binary As nCanal

Do While nMax > 0
nLeer = IIf(nMax > 50000, 50000, nMax)
nMax = nMax - nLeer
cInter = oRc(cCampo).GetChunk(n, nLeer)
n = n + Len(cInter)
Put nCanal, , cInter
Loop
Close nCanal
End Function

¿ Como puedo hacerlo en sqlserver 2000 usando visual basic
net ?