这个代码
Rows = tbl.DataTable.Select("[报价大类] = '" & Region & "'")
改成
Rows = tbl.DataTable.Select("[报价大类] = '" & Region & "'", "报价序号,CODE,项目")