access存储图片问题！急！

waterlf

我在窗体上布置了一个Image控件 datasource连的是ADODC 并在access数据库中设置了“相片”字段 类型是OLE类型 对image控件写了以下代码

Private Sub Image2_Click()

On Error Resume Next With CD1 .DialogTitle = "装入图片" .Filter = "(点阵图)*.bmpl*.bmp" .CancelError = True .ShowOpen disfile = CD1.filename If Err.Number <> cdlCancel Then Set Image2.Picture = LoadPicture(.filename) End If End With

End Sub

在一command控件中写了以下代码：

Dim SQL call MYDATEBASE SQL = "SELECT * FROM 员工信息" rs.Open SQL, CONN, adOpenKeyset, adLockPessimistic

While Not rs.EOF If rs(0) = T1.Text Then MsgBox "员工已经存在", vbInformation CONN.Close Exit Sub End If rs.MoveNext Wend

rs.AddNew rs(0) = T3.Text '员工编号 rs(1) = T1.Text '员工名称 rs(2) = C1.Text '员工性别 rs(3) = C2.Text '员工部门 rs(4) = C3.Text '学历 rs(5) = T2.Text '职务描述及特长 rs(7) = T4.Text '密码

rs.Update CONN.Close Form2.C1.Clear Form2.C2.Clear Form2.C3.Clear

Unload Me

我想把image中的照片一起存储到access的rs(6)字段中（rs(6)就是“照片字段”类型为OLE）但不知道怎么存储 请高手指点一下 谢谢