' 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