怎样将richtextbox中的图片存入数据库，有没有相关提示或者代码？

源图片有没有?我只有把源图片存数据库的办法
添加一个CommonDialog控件,数据库字段类型是:image
Dim editImage As New ADODB.Recordset
Dim strstream As New ADODB.Stream
Dim strFileName As String
dim strSql as string
CommonDialog.Filter = "BMP类型图片|*.BMP"
CommonDialog.ShowOpen
strFileName = cdg.FileName
'保存图片到数据库里
If strFileName <> "" Then
strstream.Type = adTypeBinary
strstream.Open
strstream.LoadFromFile strFileName
strSql = "select 存图片字段 from 表 where 编号='" & strid & "'"
If editImage.State = adStateOpen Then editImage.Close
editImage.Open strSql, Cn, adOpenStatic, adLockOptimistic
editImage!存图片字段 = strstream.Read
editImage.UpdateBatch adAffectCurrent
End If

RichTextbox 有一个 TextRTF 属性，它的格式是 String ，你可以把它存到一个Memo(备注型)字段中。TextRTF 属性是可读可写的。
Option Explicit