VB6でのSQL Serverからのデータの抽出について教えて頂けないでしょうか。
varbinary(MAX)のデータを抽出して画像を表示するといったことを行いたいのですが
バイナリデータの扱いが分かりません。
画像ファイル(バイナリデータ）の登録は別ソフトで行い登録済みです。
試しに下記の様にしてADODB.Recordseを使用してFieldsで出力できないのは確認したのですが、、、
どう抽出してデータを保持しすればイメージへの変換を行えるか教えて頂けないでしょうか。
宜しくお願い致します。

Dim CN As ADODB.Connection
Dim RS As New ADODB.Recordset

strSQL = "SELECT 画像  FROM テーブル"　　　’← 画像項目が「varbinary(MAX)」です
RS.Open strSQL, CN, adOpenStatic, adLockOptimistic


Dim b() As Byte
Do Until RS.EOF
    ReDim Preserve b(i)          
    b(i) = objRS.Fields("Picture").Value　　　’←取り合えずByte型に入れただけになっています。
    i = i + 1
　　RS.MoveNext      
 Loop