質問の追記です。
下記のように配列に格納してイメージに変換または画像ファイル出力できるでしょうか？
Dim b() As Byte
Do Until RS.EOF
　　Dim lSize As Long      
     ｌSize = objRS.Fields("Picture").ActualSize

　　 For j = 0 To lngSize - 1
        ReDim Preserve b(j)
          b(j) = objRS.Fields("Picture").Value(j)
      Nex
　　RS.MoveNext      
 Loop