Visual Basic - Enlazar un Objeto OLE a un Adodc

Como se hace??
El objeto OLE tiene dataField, pero no tiene dataSource (o yo no lo encuentro). El usuario tiene q poder realizar un dibujo con Microsoft Visio (por eso tengo el objeto OLE) y al terminar guardarlo en la base d datos.

Mediante ADO no se puede, tienes dos opciones o lo sincronizas con un control data o revisas informacion sobre los comandos getchunk y AppendChunk.
Tambien puede serte útil la siguiente información:

Por ejemplo, supongamos que se debe guardar el archivo "c:\Documento.doc" en la columna "Doc" de un recordset "rs" ya abierto. El código resulta algo así:

Dim mstream as New ADODB.Strem
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:\Documento.doc"
rs.Fields("Doc").Value = mstream.Read
rs.Update

En sentido inverso, para recuperar el contenido de la columna "Doc" de un recordset "rs" ya abierto, y guardarlo en el archivo "c:\Documento.doc", el código resultaría así:

Dim mstream as New ADODB.Strem
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("Doc").Value
mstream.SaveToFile "c:\Documento.doc", adSaveCreateOverWrite