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