Visual Basic - Insertar PDF desde VBasic en SQL Server?????

Tengo un problema que hasta ahora no he podido resolver:

¿Como meter un fichero de pdf en la Base de Datos SQL Server??

Muchas Gracias

1 el tipo de campo debe ser binario
2 para leer el archivo y mandarlo a ese campo, usando ADO STREAM

me hice dos funciones para resolver cosas asi

Public Function AS_Base_2_Arch(campo As Field, archivo As String)
Dim mstream As New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write campo.Value
mstream.SaveToFile archivo, adSaveCreateOverWrite
Set mstream = Nothing
End Function

Public Function AS_Arch_2_Base(campo As Field, archivo As String) ' rs as ADODB.Recordset )
Dim mstream As New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile archivo
campo.Value = mstream.Read
'rs.Update
Set mstream = Nothing
End Function