Sub List_SavedQueries()
Dim cat As New ADOX.Catalog
Dim v As ADOX.View
Dim strPath As String
strPath = CurrentProject.Path & "\mydb.mdb"
cat.ActiveConnection = "Provider=Microsoft.Jet.OleDb.4.0;" & _
"Data Source= " & strPath
For Each v In cat.Views
Debug.Print v.Name
Next
Set cat = Nothing
End Sub