创意美术教学大纲:vb把图片存入数据库

请给出原代码，谢谢了！！11
Private Sub Command2_Click()
With Adodc1
.ConnectionString = conn
.CommandType = 8
.RecordSource = "select * from 图片"
.Refresh
Dim myStream As New ADODB.Stream
myStream.Type = adTypeBinary
myStream.Open
CommonDialog1.FileName = ""
CommonDialog1.Filter = "jpg(*.jpg)|*.jpg"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
.Recordset.AddNew
myStream.LoadFromFile CommonDialog1.FileName
.Recordset.Fields("相片").Value = myStream.Read(这里为什么老出错)
.Recordset.Update
End If
End With
End Sub
大家帮帮忙吧,小弟拜求各位高手帮忙,看看,谁有可以把图片存放进去的代码,给小弟发来，小弟愿意在给加分