You did not set any criterias. fungi showed a sample with

Set rs = conn.OpenSchema(adSchemaColumns, Array(Empty, Empty, rsTables(TABLE_NAME)))

In your case

Set rstSchema = cnn1.OpenSchema(adSchemaColumns, Array(Empty,Empty, Combo1.Text) )

Put the code to load combo2 in the click event of Combo1.