現在VB6.0とアクセス２０００を使用しております。
今回画像をあつかったプログラムを作成しているのですが、
それの入出力がわかりません。
ちなみにアクセスのテーブルで「OLEオブジェクト型」で作成して
いて、それを読み込んだり、登録したりしたいのです。
　　Private Mdb As Database
　　Private mRs As Recordset

　　Dim cDBpath As String
cDBpath = "D:\db1.mdb"
Set Mdb = OpenDatabase(cDBpath)
Set mRs = Mdb.OpenRecordset("テスト", dbOpenTable)

Text1.Text = mRs.Fields(0)
Text2.Text = mRs.Fields(1)
上記のように、テキストに表示する方法はわかるのですが、
OLEに関しては無知ですので、アドバイスの方ヨロシクお願いします。

何をしようとされているの、今一理解できないのですが
画像のファイルパスを渡すようにしたのではだめなのですか？

> 何をしようとされているの、今一理解できないのですが
> 画像のファイルパスを渡すようにしたのではだめなのですか？
>
本題ですが、DBに「OLE オブジェクト型」でテーブルを作り、そこにVBから登録し、
読込もしたいのです。パスをもたすのではなく（パスを持たせた場合はそのデータを消されたら表示で
きませんよね）データそのものをDBにもたせたいのです。
いろいろHPなど検索しているのですが、なかなかみつかりません。
ヨロシクおねがいします。また説明不足の点がありましたら、ご指摘ください。

> 本題ですが、DBに「OLE オブジェクト型」でテーブルを作り、そこにVBから登録し、
> 読込もしたいのです。パスをもたすのではなく（パスを持たせた場合はそのデータを消されたら表示で
> きませんよね）データそのものをDBにもたせたいのです。
> いろいろHPなど検索しているのですが、なかなかみつかりません。
> ヨロシクおねがいします。また説明不足の点がありましたら、ご指摘ください。

DAOでの方法です、ADOでは試したことがありません
BMPのみです

レコードへの書き込みも要領はおなじです
Binaryモードで配列に読み込み、GetChunkの変わりにAppendChunkで
データをレコードに送ります。引数は配列です。

Sub RecordToFile(RS As Recordset)
    Dim lngFSize    As Long 'フィールドサイズ
    Dim bytArray()  As Byte 'データを読み込む配列
    
    'フィールドサイズ取得
    lngFSize = RS(0).FieldSize
    
    'データ無しなら終了
    If lngFSize = 0 Then
        Exit Sub
    End If
    
    '配列をフィールドサイズ分確保
    ReDim bytArray(lngFSize)
    '配列にデータコピー
    bytArray = RS(0).GetChunk(0, lngFSize)
    
    'ファイルに書き込み
    Open "test.bmp" For Binary As #1
    Put #1, , bytArray
    Close #1
    
    '表示
    picTest.Picture = LoadPicture("test.bmp")
    
    '配列クリア
    Erase bytArray
End Sub

ありがとうございます。早速参考にさせていただきます。