OBJECT1.Open ("MY_database")
Set RS = OBJECT1.Execute("SELECT * FROM ProductGroup")

然后显示 RS 的内容。