Ngứa tay ngứa chân quá:
rst.Open ("select color,sum(qty) from [Data] group by color"), cn
rst.Open ("select color,sum(qty) from [Data] where origin='KOREA' group by color"), cn
rst.Open ("select suppliers,color,sum(qty) from [Data] where origin='KOREA' group by suppliers,color"), cn
rst.Open ("select suppliers,color,sum(qty) from [Data] where origin='KOREA' and suppliers = 'SAM HWA' group by suppliers,color"), cn
rst.Open ("select color,sum(qty) from [Data] group by color"), cn
rst.Open ("select color,sum(qty) from [Data] where origin='KOREA' group by color"), cn
rst.Open ("select suppliers,color,sum(qty) from [Data] where origin='KOREA' group by suppliers,color"), cn
rst.Open ("select suppliers,color,sum(qty) from [Data] where origin='KOREA' and suppliers = 'SAM HWA' group by suppliers,color"), cn