下面给出一个将文件保存到数据库的例子，利用按钮打开插入对象窗口，供网友参考。

原理：在表中建立一个字段名为“附件”，数据类型为OLE 对象的字段，然后利用向导建一个窗体，增加一个命令按钮，如图

单击事件的代码为：

On Error GoTo err1
附件.OLETypeAllowed = acOLEEmbedded
附件.Action = acOLEInsertObjDlg
err1:

单击该按钮打开插入对象窗口，选中由文件创建，再单击浏览按钮，选择文件后，再选中显示为图标，如下图

单击确定按钮，即可将文件保存到数据库中，双击该图标即可打开相应的文件。

点击下载此附件