’假設庫文件名為“產品數據庫.mdb”，庫中的表名為“產品表”，產品字段名“類別”
全局變量：a 文本型
如果真（數據庫連接1.連接Access（取運行目錄（）+“\產品數據庫.mdb”，“”）=假）
信息框（“連接數據庫失敗！”，0，）
返回（）
’添加壹個記錄集控件；
記錄集1.置連接（數據庫連接1）
‘上面我們已經打開並且連接好了MDB數據庫，接下來我們做讀取和顯示；
記錄集1.打開（“select * from 產品表”，#SQL語句，#服務器端遊標）
記錄集1.到首記錄（）
判斷循環首（記錄集1.尾記錄後=假）
記錄集1.讀文本（“類別”，a）
如果真（a=“日用品”）
樹型框1.加入項目（0，a，，，，，）
如果真（a=“洗化用品”）
樹型框1.加入項目（1，a，，，，，）
如果真（a=“洗發水” 或 a=“洗衣粉”）
樹型框1.加入項目（2，a，，，，，）
記錄集1.到下壹條（）
判斷循環尾（）
記錄集1.關閉（）