dim table_names,table_arr set rs_table=conn.openschema(20) Do Until rs_table.EOF table_names=table_names&rs_table(2)&"," rs_table.MoveNext Loop table_arr=split(table_names,",")