PictureBoxのデータをMDBに保存するには？ (ID:80488)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ＶＢ６で開発しています。 Excelファイルの一部分をPictureBoxに取り込み。。。 xlsheet.Range("A1:Z49").CopyPicture _ Appearance:=xlPrinter, Format:=xlPicture If Clipboard.GetFormat(vbCFMetafile) = True Then ActiveDoc.picobj1.Picture = Clipboard.GetData() End If その他諸々の情報を入力した後。。。 PictureBox＋その他諸々をWordファイルに出力しています。 Clipboard.SetData ActiveDoc.picobj1.Picture If Clipboard.GetFormat(vbCFMetafile) = True Then wdApp.Selection.PasteSpecial Link:=False, _ DataType:=wdPasteMetafilePicture, _ Placement:=wdFloatOverText, _ DisplayAsIcon:=False End If その他諸々の情報が多くなってきたので、途中でファイル保存できるようにしようと思い、ADOを使ってPictureBoxの内容をMDBファイル(Access2000)に保存しようとしているのですが、 Dim cnn As New ADODB.Connection cnn.Open Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & fname & ";" & _ "Jet OLEDB:Engine Type=5;" Dim rs As New ADODB.Recordset rs.Open "TableOLE", cnn, adOpenKeyset, adLockOptimistic rs.AddNew ' "Key" は Type = adWChar rs.Fields("key").Value = "picobj1" ' "data" は Type = adLongVarWChar（OLEオブジェクト？） rs.Fields("data").Value = ActiveDoc.picobj1.Picture とすると、『種類が一致しません。』 rs.Fields("data").AppendChunk ActiveDoc.picobj1.Picture とすると、『引数が間違った型、または許容範囲外であるか、競合しています。』 このような場合、どのようにコーディングすれば宜しいのでしょうか？ よろしくお願いします。