Set rstSchema = SMART_CNN.OpenSchema(adSchemaCheckConstraints) DataWorkBook.ActiveSheet.Range("A1").CopyFromRecordset rstSchema
http://www.sql.ru/forum/1153556/poluchit-spisok-dostupnyh-znacheniy-dlya-polya-so-spiskom