如何把jpg格式图片转换成bmp再添加入OLE字段中?

现有

1、一个JPG文件夹,文件夹里放在很多JPG格式文件。

2、一张access数据表，有字段存放BMP格式图片，字段名为“图片”，字段类型为OLE。

3、一个命令按钮，名字为“导入”

请问：如何运用VBA代码，单击“命令”按钮后，能把这些JPG格式图片，转换成BMP格式，然后再存放在“图片”字段中？

我的思路是：

先用 for each fil as files.....next 语句 用savepicture 命令把图片转换成BMP格式存放在变量x中

然后用SQL语句，

rs.addnew 

rs.fields("图片").value=x