Public Function GetRefs()
 '====================================================================
 ' Name:	GetRefs
 ' Purpose:	Get a list of the current database references
 '
 ' Author:	Arvin Meyer
 ' Date:	April 10, 1999
 ' Comment:	
 '
 '====================================================================
On Error GoTo Err_GetRefs
Dim i As Integer

For i = 1 To Application.References.Count

    Debug.Print Application.References(i).FullPath

Next i

Exit_GetRefs:
	Exit Function

Err_GetRefs:

	Debug.Print "Missing Reference"
	Resume Next

End Function