实例编程：Access中引用的相对应的名称

会计考友

　问题：
　　如何知道引用的相对应的名称?
　　我想引用在引用对话框没有的引用,但又不知道它的名称,不知有什么帮助呢?
　　如:microsoft Office 10.0 Object Library在对话框没有,那要浏览它,请问它相对应的名称是什么呢?
7 Z4 [! s  X& n5 H) }0 S　　还有如果看到别的人数据库有些引用,而在我的数据库的引用对话框上找不到的呢?
　　回答：
　　用以下代码显示出现在已经引用的所有类库的名称
　　Function displayAllDll()
　　Dim r As Reference
　　On Error Resume Next
) X* m: ?6 @( P3 @　　For Each r In References
　　Debug.Print "类库名：" & r.name
　　Debug.Print "类库文件绝对路径：" & r.FullPath
　　Debug.Print "是否内建：" & r.BuiltIn
9 L. [* }! E( W- O) ?5 ?　　Debug.Print "类库版本号" & r.Minor
　　Next
　　End Function
　　得到类库名后你可以直接使用“后引用”的方式来建立需要的对象，比如
　　Dim rs
　　Set rs = CreateObject("adodb.recordset")