Queries in Microsoft Access

Does anyone know how to discover the existing queries in a Microsoft Access database so they can be placed in a list box for the user to select?

This code finds queries in an Access database using the ODBC driver

db.ExtendedSchema = true tables = db.TableSchema s = tables.Field("TableType").StringValue if s = "View" then