dim conn as adodb.connection
dim rs as adodb.recordset
strsql="select * from yourtable where gcd=11 or gcd=12 or gcd=13 or gcd =14 or gcd=16"
rs.open strsql,conn
dim conn as adodb.connection
dim rs as adodb.recordset
strsql="select * from yourtable where gcd=11 or gcd=12 or gcd=13 or gcd =14 or gcd=16"
rs.open strsql,conn