' set up a reference to the
' Microsoft ADO Ext. 2.7 for DDL and Security
Sub List_Views()
Dim cat As New ADOX.Catalog
Dim myView As ADOX.View
cat.ActiveConnection = CurrentProject.Connection
For Each myView In cat.Views
Debug.Print myView.Name
Next myView
End Sub