如要使用以下方法需要两个动态连接库，一个名叫mymathdll.dll，请把此库放到c盘下，因为在程序中我写的是到c盘下去找这个dll，不要有根目录，第二个动态连接库名叫msado15.dll，在c:program filescommon filessystemado中应该存在，它是由系统自带的，文件大小为477kb，如果不是，请替换掉。 
在NOTES中的使用方法是先声明此库，我是在操作按钮声明部分声明的，程序如下： 
'*********************************************************************************************** 
Declare Function  writefile Lib "c:mymathdll.dll"  (Byval connectstring As Lmbcs String, Byval  

sql As Lmbcs String, Byval fielname As Lmbcs String)  As Integer 
’********************************************************************************************** 
声明完后我是在操作按钮中实现以下步骤的，程序如下： 
'*********************************************************************************************** 
Sub Click(Source As Button) 

Dim connect As String 
'定义连接变量为字符型，此处的“CONNECT”变量是传递到DLL中的连接数据库的参数 
Dim sql As String 
'定义连接变量为字符型，此处的“SQL”变量是传递到DLL中的查询数据库记录的参数 
Dim filename As String 
'定义连接变量为字符型，此处的“FILENAME”变量是传递到DLL中的取出的大字段名字的参数 
connect="Provider=MSDASQL;DSN=nimis;UID=sa;PWD=;" 
sql="select content from t_original_doc where id_proj = 1 and id_doc = 1 and id_ordoc =  
1" 
filename="d:wu.doc" 
If writefile(connect,sql,filename)=0 Then 
'判断返回值 
Msgbox "无任何返回值！" 
End If 
End Sub 
********************************************************************************************* 
此动态连接库可以应用到所有需要从数据库中取图象、文档、声音、影片。根据大小，时间的长短不一样，请 

大家自己掌握，灵活运用。 
要注意的是：取出来的文件用完后请立即删除，否则下一次取时如果文件存在（我所指的是相同文件名）则回 

报错，使用时请注意。