hi , how can i list all access mdb file querys and view their code from a vb program

for example this code list all tables and querys

Dim tbls As ADOX.Table
cn1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=admin;Data Source=test"

cn1.Open
Dim cn As New ADOX.Catalog
cn.ActiveConnection = cn1
For Each tbls In cn.Tables
Debug.Print tbls.Name
Next