Hi

I find automating Access very limiting, but you can do (nearly) everything with ADOX: this should oputput the names and SQL of stored queries. (ADOX requires a reasonably modern MDB version, so you may need to convert a copy of your MDB)

oDB = crea("adox.catalog")
cMDB = "c:\access\db.mdb"
cConnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + cMDB + ";PERSIST SECURITY INFO=FALSE"
oDB.ActiveConnection = cConnect

for each oQuery in oDB.Views
	? oQuery.Name
	? oQuery.Command.CommandText
next