Question

vb中OLE对象应用方法

我想做一个添加和浏览用户资料的小程序，其中需要添加用户的相片，数据库使用的是Access 2000，VB中使用adodc控件和数据库进行连接。数据库保存图片的字段用OLE，vb中的OLE控件和数据库中的OLE连接，当用VB做出的程序浏览用户资料的时候OLE控件中能显示数据库中的图片，在添加和修改记录的时候，单击“选择照片”（command）可以打开“打开”对话框，指定格式是*.JPG等格式，选择照片后VB中OLE显示的是选择后的照片，单击保存将照片等数据保存的数据库中。现在其他的功能已经完毕就差OLE控件和数据库连接等出了问题，现在想请高手帮做一个简单的VB+ACCESS（使用adodc、OLE等控件）实现对图片的添加、修改的小程序，谢谢了。
QQ：170226835
不行的话用另一种方法 ，在../目录下创建一个存图片的文件夹，数据库的图片字段记录图片的文件名和路径的方法
With CommonDialog1
.DialogTitle = "选择要追加的图片"
.Filter = "JPG图片|*.JPG"
.ShowOpen '打开对话框
Image1.Picture = LoadPicture(.FileName)
Lbllj.Caption = "图片位置："& .FileName
End With
数据库中图片字段保存Lbllj.Caption，但是我想如果这个文件夹里没有所添加的图片，就将图片复制到上述的存图片的文件夹中并重命名（=编号）

Answer 1

Private x As Single, y As Single
Private x1 As Single, y1 As Single
Private x2 As Single, y2 As Single
Private x3 As Single, y3 As Single